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NTIFIER DECLARED TWICE I 
C! SPECIFICATION PART CO 
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FORMAL PARAMETER PART 
-IDENTIFIER APPEARS IN I 
T OF DECLARATION, 
C! STREAM PROCEDURE DECL 

PRECEDED BY ILLEGAL D 
C» PROCEDURE DECLARATION 

BY ILLEGAL DECLARATOR 

ci procedure identifier 

IN SAME BLQCKCNQT FOR 
C* PROCEDURE IDENTIFIER 

BY ( OR SEMICOLON IN 

DECLARATION, 
C» FORMAL PARAMETER LIST 
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C! FORMAL PARAMETER PART 

BY SEMICOLON. 
C! VALUE PART CONTAINS I 

WHICH DID NOT APPEAR 
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NTAINS 
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NOT ENDED BY SEMICOLON, 
ILLEGAL SPECIFICATION 



VALUE PART 
MISSING OR 

PARTt 

OWN USED IN ARRAY SPECIFICATION, 

SAVE USEO IN ARRAY SPECIFICATION* 



BLOCK! DECLARATION PRECEOED BY ILLEGAL DECLARATOR, 



ARRAYDECI 



ID IN DECLARATION NUT FOLLOWED 



ARRAY DEC NUT 



ARRAY 
BY t , 

LOWER BOUND IN 
FOLLOWED BY I , 

bound pair list not followed by 3, 

Illegal lower bound designator in 

array specification, 

own appears immediately before 

identifiers type), 

save appears immediately before 

identifiercno type). 

stream appears immediately before 

identifieruhe word procedure left 

OUT), 

DECLARATOR PRECEDED ILLEGALLY BY 

ANOTHER DECLARATOR, 

LABEL CANNOT BE PASSED TO FUNCTION, 

DECLARATOR OR SPECIFIER ILLEGALLY 

PRECEDED BY OWN OR SAVE OR SOME 

OTHER DECLARATOR. 

MISSING ( IN FILE DEC. 

NO. UF BUFFERS IN FILE DEC MUST BE 

AN UNSIGNED INTEGER, 

ILLEGAL BUFFER PART OR SAVE FACTOR 

IN FILE DEC, 
MISSING ) IN FILE DEC, 
PROCEDURE TYPE AT ACTUAL DECLARATION 
TIME DIFFERENT THAN AT FORWARD DEC, 
MISSING ( IN LISTDEC. 
MISSING ( In FORMAT DEC, 
SWITCH DEC DOES NOT HAVE * OR 
FORWARO AFTER IDENTIFIER. 
SWITCHFILEDECJMISSING *• AFTER FILED. 

SWITCHFILEDECJNON FILE ID APPEARING IN DECLARATION 

OF SWITCHFILE. 
SUPERFORMATOEC«FORMAT ID NOT FOLLOWED BY *• , 
SUPERFORMATDECIMISSING C AT START OF FORMATPHRASE , 
SUPERFORMATDECIFORMAT SEGMENT >1022 WORDS, 

SEGMENT! SAVE CODE EXCEEDS 4080 WHICH KERNAL CAN H/L 
ANYWHERE! OUT OF RANGE OF C RELATIVE ADDRESSING FOR CONSTANT 
BLOCK ! ILLEGAL F RELATIVE ADDRESS EXP IN DECLARATION 
BLOCK! PROCEDURE WHOSE BODY NOT A BLOCK 

ARRAYDEC1 CANT FIND RIGHT BRACKET IN SAVE ARHAY DEC 
ARRAYDECI FILL PART OF SAVE ARRAY DEC LONGER THAN SIZE 
ARRAYDECI ILLEGAL DIMENSION INDICATOR IN ARRAY DEC 
SEGMENTSTARTISAVE STORAGE NOT ALLOWED WITH INTRINSIC OPTION 
IQSTMT! ILLEGAL SPECIFIER IN SCOPE STMT! MUST BE *15, 
INLINE! EXTRA 1 IN STREAM HEAD. 
ANYWHERE! UNDECLARED IDENTIFIER. 
CHECKER! AN ATTEMPT HAS BEEN MADE TO ADDRESS AN 

IDENTIFIER WHICH IS LOCAL TO ONE PRUCEDURE AND GLOBAL 
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NAME OR 



TYPEH 
THIS 



TO ANOTHER, IF THE QUANTITY 15 A PROCEDURE 

AN OWN VARIABLE THIS RESTRICTION IS RELAXED. 
AEXPJ CONDITIONAL EXPRESSION IS NOT OF ARITHMETIC 
PRIMAHYI PRIMARY MAY NOT BEGIN WITH A QUANTITY OF 

TYPE. 
ANYWHERE! MISSING RIGHT PARENTHESIS. 
ANYWHEREI MISSING LEFT PARENTHESIS. 
PRIMAHYI PRIMARY MAY NOT START WITH OECLARATQR. 
BEXPl THE EXPRESSION IS NOT OF BOOLEAN TYPE. 
EXPRSSI A RELATION MAY NOT HAVE CONDITIONAL EXPRESSIONS 

AS THE ARITHMETIC EXPRESSIONS. 
B00SEC»SIMPB00# AND BQOCOMPl THE PRlMAKY IS NOT BOOLEAN. 
BOUCOMPi A NON-BOOLEAN QPEHATQH OCCURS IN A BOOLEAN 

EXPRESSION. 
BOQPRIMI NO EXPRESSION (ARITHMETIC, BOOLEAN* OR DESIGNA- 

TIONAL) MAY BEGIN WITH A QUANTITY OF THIS TYPE, 
BOQPRIMI NO EXPRESSION (ARITHMETIC* BOOLEAN* OR DESIGNA- 

TIONAL) MAY BEGIN WITH A DECLARATOR, 
PARSE! EITHER THE SYTAX OR THE RANGE OF THE LITERALS FQR 

A CONCATENATE OPERATOR IS INCORRECT, 
DQTSYNTAX! EITHER THE SYNTAX OR THE RANGE OF THE LITERALS 

FOR A PARTIAL WORD DESIGNATOR IS INCORRECT, 
DEXP* THE EXPRESSION IS NOT OF DeSIGNAT IONAL TYPE, 

ifclausei missing then, 
banai missing left braketi 
banaj missing right braket, 
compoundtain missing semicolon or end. 
cqmpqunotail* missing end. 
actualparaparti an indexed file may be passed 
only and only to a stream procedure • the 



BY NAME 
STREAM 



PROCEDURE MAY NOT DO A RELEASE ON THIS TYPE PARA" 

MTTTfi 

ACTUALPARAPART* STREAM PROCEDURE MAY NOT HAVE AN 

EXPRESSION PASSED TO IT BY NAME, 
ACTUALPARAPARTI THE ACTUAL AND FORMAL PARAMETERS DO NOT 

AGREE AS TO TYPE, 
ACTUALPARAPARTI ACTUAL AND FORMAL ARRAYS 00 NOT HAVE SAME 

NUMBER OF DIMENSIONS, 
ACTUALPARAPARTI STREAM PROCEDURES MAY NUT BE PASSED AS A 

PARAMETER TO A PROCEDURE, 
ACTUALPARAPARTI NU ACTUAL PARAMETER MAY BEGIN WITH A 

QUANTITY OF THIS TYPE. 
ACTUALPARAPARTI THIS TYPE QUANTITY MAY NOT BE PASSED TO A 

STREAM PROCEDURE, 
ACTUALPARAPARTI EITHER ACTUAL AND FORMAL PARAMETERS DO 

NOT AGREE AS TO NUMBER* OR EXTRA RIGHT PARENTHESIS, 
ACTUALPARAPARTI ILLEGAL PARAMETER DELIMITER, 
RELSESTMTI NO FILE NAME, 
DQSTMTI MISSING UNTIL. 
WHILESTMTI MISSING 00, 
LABELR» MISSING C OlON, 

LABELRI THE LABEL WA$ NOT DECLARED IN THIS BLOCK. 
LABELRI THE LABEL HAS ALREADY QCCURED. 
FORMATPHRASEI IMPROPER FORMAT EDITING PHRASE* 
FQRMATPHRASEI A FORMAT EOITING PHRASE DOES NOT HAVE AN 

INTEGER WHERE AN INTEGER IS REQUIRED, 
FORMATPHRASEI THE WIDTH IS TOO SMALL IN fc OR F EOITING 
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PHRASE, 
TA8LEI OEFINE IS NESTED MORE THAN EIGHT DEEP. 
NEXTENTI AN INTEGER IN A FORMAT IS GREATER THAN 1023, 
SCANNER! INTEGER OR IDENTIFIER HAS MORE THAN 63 

CHARACTORS, 
DEFINEGEN1 A DEFINE CONTAINS MORE THAN 2047 CHARACT0R5 

(BLANK SUPPRESSED), 
C0MP0UNDTAIL1 EXTRA END. 
STMTI NO STATEMENT MAY START 



START 
START 



WITH 
WITH 
WITH 



THIS 
THIS 



TYPE IDENTIFIER, 
TYPE QUANTITY. 



PROCEDURE 



A 
OR 



DECLARATOR • 
A MISPLACED 



MAY 8E 



EXPRESSIONS IN A SWITCH 



STMTI NO STATEMENT MAY 
STMTI NO STATEMENT MAY 

A MISSING END OF A 

DECLARATION, 
SWITCHGENI MORE THAN 256 

DECLARATION. 
GETSPACEI MORE THAN 1023 PROGRAM REFERENCE TABLE CELLS 

ARE REQUIRED FOR THIS PROGRAM, 
GETSPACEI MORE THAN 255 STACK CELLS ARE REQUIRED FOR THIS 

PROCEDURE. 
ACTUALPARAPARTl CONSTANTS MAY NOT BE PASSEO BY NAME TO 

STREAM PROCEDURES. 
FQRSTMTI IMPROPER FOR INDEX VARIABLE, 

FQRSTMTI MISSING LEFT ARROW FOLLOWING INDEX VARIABLE. 
FQRSTMTI MISSING UNTIL OR WHILE IN STEH ELEMENT, 
FQRSTMTI MISSING 00 IN FOR CLAUSE. 
IFEXPI MISSING ELSE 
LISTELEMENTI A DESIGNATIQNAL EXPRESSION MAY NOT BE A LIST 

ELEMENT, 
LISTELEMENTI A ROW DESIGNATOR MAY NOT BE A LiSTELEMENT 
LISTELEMENTI MISSING RIGHT BRAKET IN GROUP OF ELEMENTS 
PROCSTMTI ILLEGAL USE OF PROCEDURE OR FUNCTION IDENTIFIER 
PURGE* DECLARED LABEL OOES NOT OCCUR. 
PURGEI DECLARED FORWARD PROCEDURE DOES NOT OCCUR. 
ZlPSTMTl MISSING COMMA IN ZIP STATEMENT 
F0RMATPHRA5EI THE WIDTH QF A FIELD IS MURE THAN 63. 
EMITI SEGMENT TOO LARGE ( > 4093SYLLABLES) . 
SIMPLE VARIABLEI PARTIAL WORD DESIGNATOR NOT LEFT-MUST 

IN A LEFT PART LIST, 
SIMPLE VARIABLEI MISSING , OR * . 
SUBSCRIPTED VARIABLEI WRONG NUMBER OF SUBSCRIPTS IN A ROW 

DESIGNATUR, 
SUBSCRIPTED VARIABLEI MISSING 3 IN A ROW DESIGNATOR. 
SUBSCRIPTED VARIABLEI A ROW DESIGNATOR APPEARS OUTSIDE OF 

AN ACTUAL PARAMETER LIST OR FILL STATEMENT, 
SUBSCRIPTED VARIABLEI MISSING 3. 
SUBSCRIPTED VARIABLEI MISSING C. 
SUBSCRIPTED VARIABLEI WRONG NUMBER 
SUBSCRIPTED VARIABLEI PARTIAL WORD 

MOST IN A LEFT PART LIST. 
SUBSCRIPTED VARIABLEI MISSING , OR ♦ . 

VARIABLEI PROCEDURE 10 USED OUTSIDE OF SCOPE IN LEFT PART. 
STREAM STMTIILLEGAL STREAM STATEMENT, 
ANY STREAM STMT PRUCEQURCl MISSJNG *, 
INDEXI MISSING + OH • , 
INOEXI MISSING NUMBER OR STREAM VARIABLE. 

EMITCI NUMBER>63 OR NUMBER OF LABELS+LQCALS«-FQRMALS>63» 
DSSI MISSING STRING IN DS* LIT STATEMENT, 



OF SUBSCRIPTS, 
DESIGNATOR NOT 



LEFT" 
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RELEASES! MISSING PARENTHESIS OR FILE IDENTIFIER IS NOT 

A FQRMAl/PARAMETER, 
GQT05#IABEIS»0R JUMPS! LABEL SPECIFIED IS NOT UN THE SAME 
NEST LEVEL AS A PRECEDING APPEARANCE OF THE 
LABEL. 
LABELS! MISSING If 

LABELSI LABEL APPEARS MORE THAN ONCE. 

GOTOSI MISSING LABEL IN A GO TO OR JUMP OUT TO STATEMENT. 
JUMPS! MISSING OUT IN JUMP OUT STATEMENT, 
NE5TS1 MISSJNG PARENTHESIS! 
IF5IMI5SING $C IN IF STATEMENT. 
IFSI MISSING RELATIONAL IN IF STATEMENT, 
IFSI MISSING ALPHA*OC OR STRING IN IF STATEMENT, 
IFSI MISSING THEN INIF STATEMENT, 
FREDFIXI THERE ARE GO TO STATEMENTS IN WHICH THE LABEL IS 

UNOEFINEOi 
EMITCI A REPEAT INDEX i 64 WAS SRECIFIEO OR TUO MANY 

FORMAL PARAMET|R$»LQCALS AND LABELS. 
TABLE! A CONSTANT IS SPECIFIED WHICH IS TOO LARGE 

OR TOO SMALL. 
DBLSTMTl MIS5ING (, 
DBLSTMTI TOO MANY OPERATORS. 
DBLSTMTl TOO MANY OPERANDS, 
DBLSTMTI MISSING > . 
DBLSTMTl MISSING J , 
FILLSTMTI THE IDENTIFIER FOLLOWING "FILL" IS NUT 

AN ARRAY IDENTIFIERi 
FILLSTMTI MISSING "WITH" IN FILL STATEMENT, 
FILLSTMTI IMPROPER FILL ELEMENT* 
FILLSTMTI NON-OCTAL CHARACTER IN OCTAL FILL. 
FILLSTMTI IMPROPER ARRAY ROW DESIGNATOR IN FILL, 
FILLSTMTI DATA IN FILL EXCEEDS 1023 WORDS, 
FILLSTMTI ODD NUMBER OF PARENTHESES IN FILL* 
MERRIMACIMISSING FILE ID IN MONITOR DEC. 
MERRIMACIMISSING LEFT PARENTHESIS IN MONITOR DEC. 



FOR MONITOR LIST ELEMENT. 
EXPRESSION DELIMITER IN 

SUBSCRIPTS IN MONITOR LIST 



MERRIMACIIMPRQPER SUBSCRIPT 
MERRIMACHMPRQPER SUBSCRIPT 

MONITOR LIST ELEMENT, 
MERRIMACI IMPROPER NUMBER OF 

ELEMENT, 
MERRIMACILABEL OR SWITCH MONITORED AT IMPROPER LAVELi 
MERRIMACUMPROPER MONITOR LIST ELEMENT, 

MERRIMACIMISSING RIGHT PARENTHESIS IN MUNITQR DECLARATION, 
MERRIMACIIMPRQPER MONITOR DECLARATION DELIMITER, 
DMUPIMISSING FILE IDENTIFIER IN DUMP DECLARATION. 
DMUPIMISSING LEFT PARENTHESIS IN DUMP DECLARATION, 
0MUPISU8SCRIPTED VARIABLE IN DUMP LIST MAS WRONG NUMBER OF 

SUBSCRIPTS, 
DMUPISUBSCRIPTED VARIABLE IN DUMP LIST HAS WRONG NUMBER OF 

SUBSCR I PTS 
DMUPIJMPROPER ARRAY DUMP LIST ELEMENT, 
DMUPULLEGAL DUMP LIST ELEMENT, 
DMUPIMORE THAN 100 LABELS APPEAR AS DUMP LIST ELEMENTS 

IN ONE DUMP DECLARATION, 
DMUPIJLLEGAL DUMP LIST ELEMENT DELIMITER. 
DMUPIMISSING OUMP LABEL IN DUMP DECLARATION, 
DMUPIMISSING COLON IN DUMP DECLARATION, 
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DMUPI IMPROPER DUMP DECLARATION DELIMITER. 

READSTMTIMISSING LEFT PARENTHESIS IN READ STATEMENT. 

READSTMTIMISSING LEFT PARENTHESIS IN READ REVERSE 
STATEMENT, 

READSTMTIMISSING FILE IN READ STATEMENT. 

READ5TMTIIMPR0PER RELEASE INOICATQR, 

FILE DELIMITER IN READ STATEMENT 
FORMAT DELIMITER IN READ STATEMENT. 
OELIMITEP FOR SECOND PARAMETER IN R£AD 



ROW 

ROW 



DESIGNATOR 
DESIGNATOR 



IN READ STATEMENT, 
DELIMITER IN READ 



REAOSTMTtlMPRQPER 
READSTMTIIMPROPER 
READSTMTIIMPRQPER 

STATEMENT, 
READSTMTIIMPROPER 
READSTMTIIMPROPER 

STATEMENT, 
READSTMTIMISSING ROW DESIGNATOR IN READ STATEMENT. 
READSTMTIIMPROPER DELIMITER PRECEEOING THE LIST IN A READ 

STATEMENT, 
HANOLETHETAILENOQFAREAOORSPACESTATEMENTUMPRUPER END OF 

FILE LABEL IN READ OR SPACE STATEMENT, 

handlethetailendofareadorspacestatement I IMPROPER PARITY 

label in read or space statement, 
handlethetailendof are adorspacest at ementi missing right 

bracket in read or space statement, 
spacestmtimissing left parenthesis in space statement, 
spacestmtiimproper file identifier in space statement, 
spacestmtimissing comma in space statement, 
spacestmtimissing right parenthesis in space statement, 
writestmtimissing left parenthesis in a write statement, 
writestmtumprqper file identifier in a write statement, 
writestmtumproper delimiter for first parameter in a 

write statement, 
writestmtimissing right bracket in carriage control part 

OF A WRITE STATEMENT, 
WRITESTMTULLEGAL CARRIAGE CONTROL DELIMITER IN A WRITE 

STATEMENT, 
WRITESTMTUMPROPER SECOND PARAMETER DELIMITER IN WRITE 

STATEMENT, 
WRITESTMTUMPROPER ROW DESIGNATOR IN A WHITE STATEMENT, 
WRITESTMTIMISSING RIGHT PARENTHESIS AFTER A RQW DESIGNATOR 

IN A WRITE STATEMENT, 
WRITESTMTIMISSING ROW DESIGNATOR IN A WRITE STATEMENT, 
WRITESTMTUMPROPER DELIMITER PRECEEOING A LIST IN A WRITE 

STATEMENT, 
WRITESTMTUMPROPER LIST DELIMITER IN A WRITE STATEMENT, 
READSTMTIIMPROPER LIST DELIMITER IN A READ STATEMENT. 
LOCKSTMTIMISSING LEFT PARENTHESIS IN A LUCK STATEMENT, 
LQCKSTMTI IMPROPER FILE PART IN A LOCK STATEMENT, 

IN A LOCK STATEMENT, 
DISPOSITION PART IN A LOCK 



LOCKSTMTIMISSING CUMMA 
LOCKSTMTI IMPROPER UNIT 

STATEMENT, 
LOCKSTMTIMISSING RIGHT 
CLOSESTMTIMISSING LEFT 
CLOSESTMTIIMPRQPER FILE 
CLOSESTMTIMISSING COMMA 
CLOSESTMTIIMPRQPER UNIT 

STATEMENT, 
CLOSESTMTIMISSING RIGHT 



PARENTHESIS IN A 

PARENTHE5IS IN A 
PART IN A CLOSE 
IN A CLOSE STATEMENT, 
DISPOSITION PART IN A 



LOCK STATEMENT, 
CLOSE STATEMENT, 
STATEMENT, 



CLOSE 



PARENTHESIS IN 



RWNOSTMTIMISSING LEFT PARENTHESIS IN A 



A CLOSE STATEMENT, 
REWIND STATEMENT, 



00243000 


T 0000 


09244000 


T 0000 


00245000 


r oooo 


00246000 


T 0000 


09247000 


r oooo 


09248000 


r oooo 


09|49000 


r oooo 


09250000 ' 


r oooo 


00251000 * 


r oooo 


09252000 * 


r oooo 


00253000 ' 


r oooo 


09254000 ' 


r oooo 


09255000 ' 


r oooo 


09256000 ' 


r oooo 


00257000 ' 


r oooo 


09256000 ' 


r oooo 


09259000 1 


r oooo 


00260000 i 


r oooo 


09261000 1 


r oooo 


09262000 ' 


r oooo 


00263000 1 


r oooo 


00164000 ' 


r oooo 


09265000 1 


r oooo 


00266000 1 


r oooo 


00267000 1 


r oooo 


00268000 1 


r oooo 


09269000 1 


r oooo 


09270000 1 


r oooo 


00271000 1 


r oooo 


09272000 1 


r oooo 


00273000 1 


r oooo 


09274000 1 


r oooo 


09275000 1 


' oooo 


00276000 1 


r oooo 


00277000 1 


r oooo 


09278000 1 


r oooo 


08279000 1 


■ oooo 


09180000 1 


r oooo 


09281000 1 


r oooo 


0028200Q 1 


oooo 


00283000 1 


r oooo 


08284000 1 


r oooo 


09285000 1 


" oooo 


00286000 1 


oooo 


00287000 1 


oooo 


06288000 1 


oooo 


09889000 1 


' oooo 


09290000 1 


' oooo 


09291000 1 


oooo 


09292000 1 


oooo 


06293000 T 


oooo 


00294000 1 


oooo 


09895000 T 


oooo 


06296000 T 


oooo 


09297000 T 


oooo 


09298000 T 


oooo 


09299000 T 


oooo 



461 

463 
464 
465 

500 
520 
521 
600 
601 
602 
603 
604 
605 
610 
611 



RWNDSTMTIIMPRQPER FIU PART IN A REWIND STATEMENTS 
RWN05TMTIMISSING RIGHT PARENTHESIS IN A REWIND STATEMENT, 
BlOCKIA MONITOR DECLARATION APPEARS IN THE SPECIFICATION 

PART OF A PROCEDURE, 
BLOCKIA DUMP DECLARATION APPEARS IN THE SPECIFICATION PART 

OF A PROCEDURE, 
INLINE! MISSING PARAMETER IDENTIFIER IN INLINE STREAM 

STATEMENT PARAMETER LIST, 
•101 NEEDS DOUBLE PERlOO FOR PRTE IF PAST 512 
TABLE! STRING LONGER THAN ONE WORD C48 BITS). 
TABLEf STRING CONTAINS A NQN-PERMISSIBLE CHARACTER* 
DOLLARCARDI NUMBER EXPECTED. 

OPTION IDENTIFIER EXPECTED, 
TOO MANY USER-DEFINED OPTIONS. 

unrecognized word or character, 
mismatched parentheses. 
$ In card column i for omit card 

SEQUENCE ERROR, 

LIMIT HAS BEEN EXCEEDED. 



DOLLARCARDI 

OOLLARcARD* 

DOLLARCARDI 

DOLLARCARDI 

DOLLARCARDI 

READACARDI 

READACAROt ERROR 



PRT(22) 
PRT(23) 
PRT(24) 



; 

BEGIN COMMENT OUTERMOST BLOCK; 
*LIST, LABEL' OR SEGMENT DESCRIPTOR* 
*OUTER BLOCK DESCRIPTOR* 
♦SEGMENT DESCRIPTOR* 



00300000 


T 


0000 


00301000 


T 


0000 


00302000 


T 


0000 


00303000 


T 


0000 


00304000 


T 


0000 


06305000 


T 


0000 


00305001 


T 


0000 


00305002 


T 


0000 


00305100 


T 


0000 


00306200 


T 


0000 


00306300 


T 


0000 


00400000 


T 


0000 


00401000 


T 


0000 


00403000 


T 


0000 


00404000 


T 


0000 


09405000 


T 


0000 


00406000 


T 


0000 


00410000 


T 


0000 


00411000 


T 


0000 


00490000 


T 


0000 


00500000 


T 


0000 



PRTC25) b 



INTEGER 
ERRORCOUNT 



ERRQRCOUNT* COMMENT NUMBER OF ERROR MSGS, MCP WILL TYPE 



SYNTX 
COMMEN 



ERR AT 
T SAVE' 



nt 



T J!i 



THIS 
FOR 



CODE 



INTEGER SAVETIME; 
PRTC26) * SAVETIME 

IF COMPILE & 60 «0, 

integer cardnumber; x 
prtc27) » cardnumber 

Integer cardcount; 
prtc30) * cardcount 

boolean buildlinej 

PRTOl) - BUILDLINE 

COMMENT RR1-RRU ARE USED In SOME PROCEDURES 
PLACE OF LOCALS TO SAVE STACK SPACE; 
REA|. RRl*RR2#RR3>RR4#RR5#RR6,RR7#RR8>RR9»RRlO,RRii; 



NQN-ZEHU, MUST BE 0R+25; 
FILE* GIVEN BY MCP. 



SEtt * OF CARD BEING PROCESSED, 
% NUMBER OF CARDS PROCESSED* 



IN 



for Syntax* *m« must be at r*26; 



PRT(32) 
PRT<33) 
PRT(34) 
PRT(35) 
PRTC36) 
PRT(37) 
PRTC40) 
PRTC41) 
PRT(42) 

PRT(43) 
PRT(44) 



START OF SEGMENT ********** 

00501000 T 0000 

00502000 T 0000 

00103000 T 0000 

00904000 T 0000 

00504100 T 0000 

00504150 T 0000 

00504700 T 0000 

00105000 T 0000 

00506000 T 0000 

00507000 T 0000 



RR1 

RR2 

RR3 

RR4 

RR5 

RR6 

RR7 

RR8 

RR9 

RR10 

RRll 



PRTU5) * EXAMIN 



REAL 



COMMENT SOME OF THE KRJ ARE USED TO PASS FILE INFORMATION 

TO TH| MAIN BLOCKi 

COMMENT EXAMlN RETURNS THE CHARACTER 

STREAM PROCEDURE EXAMINCNCR); VALUE 



AT ABSOLUTE 

ncr; 



ADDRESS NCR; 



00508000 
00509000 
00510000 
00511000 



0000 
0000 
0000 
0000 



begin si*ncr;di*loc examin;di*oi+7; ds*chr end; 



00512000 T 0000 



PRTU6) « GETF 



integer stream prqctdure getfcq )t value q' 

begin si*10c getf; 51 ♦si-7;0j *loc q;di*di*5; 

skip 3 ob; 9cif sb then ds*set else ds«.reset; skip sb); 

oi*loc q;si*q;ds«-wds;si*o;getf*-si 
end getfj 



09523000 


T 


0002 


Q8524000 
00525000 
00526000 
00127000 


T 
T 

T 
T 


0002 
0003 

0005 

0006 



PRTU7) 



COMMENT START SETTING UP FILE PARAMETERS! 

IF EXAMINCRR11*GETFC3)*"Y08") *12 THEN RRt*5 ELSE 

BEGIN RRl*2JRR2«-i5Q END' 

IF EXAMlN(RRil+5) *12 THEN RR3*4 ELSE 

BEGIN RR3*2J RR4*t50 EnOI 

IF EXAMIN<RR11*10)*12 THEN 

BEGIN RR5*?;RR6*10;RR7»150 END ELSE 
BEGIN RR5*URR6*56;rr7*10 END; 
IF EXAMIN<RR11*15)*12 THEN 

BEGIN RR8*10JRR9»150 END ELSE 

BEGIN RR8*56JRR9*lO END; 

begin comment main block* 

integer opinx; % used for indexing into options array, 
♦segment descriptor* 



00528000 
00529000 
Q0&3Q00Q 
09531000 
00532000 
00533000 
06834000 
00535000 
08S36000 
09537000 
00538000 
01000000 
01000800 



0007 
0007 

0013 
0016 
0020 
0022 
0024 
0027 
0029 
0032 
0034 
0036 
0036 



PRT(50) * 0PINX 

BOOLEAN SETTING; X USED BY 00LLAHCAR0 FOR AN 0PTIQN"S SETTING, 
PRT(51) * SETTING 

INTEGER NEWlNX* ADQVALUE# BASENUM* TOTALNOi 
PRTC52) * NEWINX 
PRTC53) * ADDVALUE 
PRT(54) * BASENUM 
PRTC55) * TOTALNO 

DEFINE OPARSIZE • 200 #; 

ARRAY OPTIONStOlQPARSlZEl; 

prt(56) « options 

optionword; 



START OF SEGMENT ********** 
01000802 T 0000 
01000860 T 0000 



PRT(57) 



BOOLEAN 

OPTIONWORD 

DEFINE 



01000902 T 0000 
Q1000V04 T 0000 

01000910 T 0002 



CHECKBIT 

DEBUGBIT 

OECKBIT 

FORMATBIT 

INTBIT 

LISTABIT 

LISTBIT 

LISTPBIT 

MCPBIT 

MERGEBIT 

NESTBIT 

NEW8IT 
NEWINCLBIT 

OMITBIT 
PRINTDOLLAHBIT 



1* 

2* 

3# 

4# 

5* 

6* 

7* 

8# 

9* 

10* 

11* 

12* 

13* 

14* 

15* 



01000920 
01000930 
01000940 
01000950 
01000960 
01000970 
01800980 
01000990 
01001000 
01001010 
01001020 
01001030 
01001040 
01001050 
01001060 



0002 
0002 

0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 



COMMENT 
DEFINE 



COMMENT 



PRT(60) 

PRTC61) 
PRT(62) 



boolean 

NOHEAQlNG 

boolean 

NEWBASE 

BOOLEAN 

LASTCRDPATCH 



PRTBIT * 16#, 

PUNCHBIT * 17*, 

PURQEBIT = 18f* 

SEGSBIT * 19## 

SEQBIT * 20*, 

SEQERRBIT » 2i## 

SINGLBIT m 22## 

STUFFBIT * 23*, 

VOIDBIT * 24## 

VOIOTBIT ■ 25#* 

USEROPINX ■ 26#; 
IF A NEW CUMPkER-OEfINED 

AND ADD OPTION IN DEFINES 
FILL STATEMENT 
CHECKTOG 



DEBUGTOG » 

DECKTOG * 

FQRMATQG * 

INTOG * 

LISTATQG s 

LISTOG * 

LISTPTOG = 

MCPTOG * 

MER6ET0G * 

NESTOG * 

NEWTOg * 

NEWINCL * 

OMITTING = 
PRINTOOLLARTOG * 

PRTOG m 

PUNOHTOG s 

PURGETOG » 

SEGSTOG • 

5EQTOG * 
SEQTOG INDICATES 

SEQERRTOG m 

SINGLTOG ■ 

STUFFTQG » 

VOIDING = 

VQIOTAPE ■» 

DUMMY * 
NqHEAOINGI 



OPTION 
BELOW* 

IN INITIALIZATION 

» OPTIONWORD 

* OPTIONWORD 
» OPTIONWORD 

* OPTIONWORD 

* OPTIONWORD 

* OPTIONWORD 

■ OPTIONWORD 
s OPTIONWORD 

* OPTIONWORD 

* OPTIONWORD 

* OPTIONWORD 

■ OPTIONWORD 

■ OPTIONWORD 
= OPTIONWORD 
p OPTIONWORD 

* OPTIONWORD 
s OPTIONWORD 

« QPTIQNWQRO 

* OPTIONWORD 
' OPTIONWORD 

RESEQUENCE 

* OPTIONWORD 

* OPTIONWORD 

■ OPTIONWORD 

= optionword 

* optionworo 

* *» 

TRUE IF OATIME 



IS 
IN 
OF 

CCHECKBITIU 
CDEBUGBITI1] 



added, change userqpinx 
dollarcard, and in 
compiler; 

«, 
9, 



CDECKBITU] *$ 
CFORMATBITIU ** 
tlNTBITIt] *> 
CLISTABITIU *, 
CLISTBITII] *, 
CLISTPBITU3 *, 
CMCPBITU3 *, 
CMERGEBITtn *, 
CNESTBITH3 *, 
CNEWBITI1J *, 
CNEWINCLBITU3 *, 
COMITBITU] *, 
[PRINTOOLLARBITU3 
CPRTBITIU #» 
CPUNCHBITI13 *» 

CPURGEBITIU *» 
CSEGSBITU3 t, 

CSEQBITIU *» 
G IS TO BE DONE; 
CSEQERRBITtU *> 
CSINGLBITH J *f 
CSTUFFBITI13 *, 
[VQIDBIT»13 *, 
tVoIDTBITIl] *, 



HAS NQT BEEN CALLED. 



NEWBASE; 



% NEW BASENOM FOUND ON A NEW i-CARD, 



LAST6RDPATCH; % NORMALLY FALSE* SET TO TRUE WHEN THE 



INTEGER XMODEi 
PRTC63) » XMOOE 

BOOLEAN 
PRT<64) * DOLLARTOG 

INTEGER 
PRTC65) f ERRMAX 

BOOLEAN SEQXEOTOG; 
PRT(66) * SEQXEQTOG 



D0LLART06; 
ERRMAXJ 



X LAST CARD FROM SYMBOLIC LIBRART READ 

% IS PATCHED FROM THE CARD READER, 

% TELLS DOLLARCARD HOW TO SET OPTIONS, 

* TRUE IF SCANNING A DOLLAR CARD. 

X COMPILATION STOPS IF EXCEEDED. 

% GIVE SEG. NO, WHEN DS-ING OBJ, 



01001070 


T 


0002 


01001080 


T 


0002 


01001090 


T 


0002 


01001100 


T 


0002 


01001110 


T 


0002 


0100U20 


T 


0002 


01001130 


T 


0002 


01001140 


T 


0002 


010011SJO 


T 


0002 


01001160 


T 


0002 


01001170 


T 


0002 


0100U80 


T 


0002 


01001190 


T 


0002 


01001200 


T 


0002 


01001210 


T 


0002 


01001220 


T 


0002 


01001230 


T 


0002 


01001240 


T 


0002 


01001250 


T 


0002 


01001260 


T 


0002 


01001270 


T 


0002 


01001280 


T 


0002 


01001290 


T 


0002 


01001300 


T 


0002 


01001310 


T 


0002 


01001320 


T 


0002 


01001330 


T 


0002 


01001340 


T 


0002 


01001350 


T 


0002 


01001360 


T 


0002 


01001370 


T 


0002 


01001380 


T 


0002 


01001390 


T 


0002 


01001400 


T 


0002 


01001410 


T 


0002 


01001420 


T 


0002 


01001430 


T 


0002 


01001440 


T 


0002 


01001450 


T 


0002 


01001460 


T 


0002 


01001470 


T 


0002 


01001480 


T 


0002 


01001490 


T 


0002 


01001500 


T 


0002 


01001510 


T 


0002 


01001520 


T 


0002 


01001530 


T 


0002 


01001540 


T 


0002 


01001550 


T 


0002 


01001560 


T 


0002 



BOOLEAN LISTERI 
PRTC67) * LISTER 

alpha medium; 
prtc70) * medium 

integer myclass; 
prtc71) * myclass 

real batman; 
prtc72) * batman 

ARRAY SPEClALC0'3ij; 
PRT(73) * SPECIAL 

COMMENT THIS AKHAY HOLDS TH£ INTERNAL CODE FOR THE SPECIAL 
CHARACTQRS! IT IS FILLED DURING INITIALISATION* 



% LISTOG OK LISTATOG OR DEBUGTOG, 
X INPUT IS I T*C*P*CA*CB*CC, 
% USED IN DOLLARCARD EVALUATION. 
% USED IN DOLLARCARD EVALUATION, 



PRT<74) = INFO 



ARRAY INFO [01127*01255]; 

COMMENT INFO CONTAINS ALL THE INFORMATION ABOUT A GIVEN IDENTIFIER 
OR RESERVED WORD* THE FIRST WORD OF A GIVEN ENTRY IS 
THE INTERNAL COOE ( OR ELBAT WORD AS IT IS USUALLY 
CALLED), THE SECOND WORD CONTAINS THE FORWARD BIT (IN 
U'UJ FOR PROCEDURES* THE LINK TO PREVIOUS ENTRY (IN 
C4I8])* THE NUMBER OF CHARACTQRS IN THE ALPHA REPRESENTA- 
TION (IN C12I6J)* AND THE FIRST 5 CHARACTQRS OF ALPHA, 
SUCCEDING WORDS CONTAIN THE REMAINING CHARACTQRS OF ALPHA* 
FOLLOWED BY ANY ADDITIONAL INFORMATION. THE ElBAT WORD 

ano the alpha for any quantity are not split across a row 
of info, for purposes of finding an identifier or 
reserved word the quantities are scattered into 125 
diferent lists or stackes, which stack contains a quantity 
is given by taking naaaaa mod 125 where n is the number 
of charactqrs and aaaaa is the first 5 charactqrs of 
alpha* filled in with zeros from the right if needed, 
this number is calleq the scramble number or index. 
the first row of info is used for other purposes, the 
reserved wqros occupy the second row, it is filled during 
initialization; 
comment info format 

following is a description of the format of all types of entries 

ENTERED IN iNFOt 

THE FIRST WORD OF ALL ENTRIES IS THE ELBAT WORD. 
THE INCR FIELD C C27I83 > CONTAINS AN INCREMENT WHICH WHEN 
ADDED TO THE CURRENT INDEX INTO INFO YELDSAN INDEX TO ANY 
ADDITIONAL INFO (IF ANY) FOR THIS ENTRY. 
E,G, IF THE INDEX IS IX THEN InFOC C IX+INCR) .LINKR*C IX+INCR ) . 
LINKC] WILL CONTAIN THE FIRST WORD OF ADDITIONAL INFO, 
THE LINK FIELD OF THE ELBAT WORD IN INFO IS OIFFERENT FROM 
THAT OF THE ENTRY IN ELBAT PUT IN BY TABLE.THE ENTRY IN ELBAT 
POINTS TO ITS OWN LOCATION (RELATIVE) IN INFO, 
THE LINK IN INFO POINTS TO THE PREVIOUS ENTRY £,G,*THE 
LIn* PROM STACKHEAD WHICH THE CURRENT ENTRY REPLACED, 
FOR SIMPLICITY*I WILL CONSIDER INFO TO BE A ONE OlMENSIONAL 
ARRAY*SO THAT THE BREAKING UP OF THE LINKS INTO ROW AND COLUMN 
WILL NOT DETRACT FROM THE DISCUSSION, 

ASSUME THAT THREE IDENTIFIERS A,B*AND C "SCRAMBLE" INTO 
THE SAME STACKHEAD LOCATION IN THE ORDER OF APPEARANCE, 

FURTHER ASSUME THERE ARE NO OTHER ENTRIES CONNECTEO TO 
THJS STACKHEAD INDEX, LET THIS STACKHEAD LOCATION BE 



01001570 

01001580 

01001590 

01001600 

01003000 

01004000 
01005000 
01006000 
01007000 

oiooeooo 

01009000 

oioioooo 

01011000 
01012000 
01013000 
01014000 
01015000 
01016000 
01017000 
01018000 
01019000 
01020000 
01021000 
01022000 
01023000 
01024000 
01025000 
01026000 
01027000 
01028000 
01029000 

01030000 
01031000 
01032000 
01033000 
01034000 
01035000 
01036000 
01037000 
01038000 
01039000 
01040000 
01041000 
01042000 
01043000 
01044000 
01045000 

01046000 
01047000 
01048000 
01049000 



0002 
0002 
0002 
0002 

0002 

0005 
0005 
0005 
0005 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 

0007 
0007 
0007 
0007 



NOW THE DECLARATION 

BEGIN REAL AfB*C IS ENCOUNTERED 
IF THE NEXT AVAILABLE INFO SPACE IS CALLED NEXTINFO 
THEN A IS ENTERED AS FOLLOWS I ( ASSUME AN ELBAT WORD T HAS BEEN 

CONSTRUCTED FOR A) 
T,LINK* SCL3. (WHICH IS ZERO AT FIRST). 
SCL3*NEXTINFQ. 

NEXTINFU*NEXTINFQ*NUMBER OF WORDS IN THIS 
ENTRY, 
TO THE ENTRY FOR A IN INFO AND THE ENTRY 
CONTAINS THE STOP FLAG ZERO, 



INF0CNEXTINF0]*T, 



B ANO IT POINTS TO THE 
A. 



NOW SCL3 POINTS 

ITSELF 
B IS ENTERED SIMILARLY TO A, 
NOW SCU POINTS TO THE ENTRY FOR 

ENTRY FOR 
SIMILARLY#AFTER C IS ENTERED 

SCL3 POINTS TO C'WHOSE ENTRY POINTS TO B WHOSE ENTRY 
POINTS TO A, 
THE SECQNB WORD OF EACH ENTRY IN INFO IS MADE UP A5 FOLLOWS! 
FWDPT -CltU'THIS TELLS WHETHER A PROCEDURE WAS DECLARED 

FORWARD.IT IS RESET AT THE TIME OF ITS ACTUAL 
FULL DECLARATION, 

THIS GIVES A DECREMENT WHICH GIVES THE RELATIVE 
INDEX TO THE PREVIOUS INFO ENTRY WHEN SUBTRACTED 
FROM THE CURRENT ENTRY INDEX, 
TELLS THE NUMBER OF CHARACTERS IN THE ENTRY, (<64) 
CONTAINS THE FIRST FIVE ALPHA CHARACTERS OF THE ENTRY 
AND SUCCEEDING WORDS CONTAIN ALL OVERFLOW IF NEEDED, 

t h ese words contain a characters each»left justified, 



PURPT »UI83 



[1216] 
C18I30] 



THUS*AN ENTRY 



INFQCI] 
1*1 
1*2 
1*3 
1*4 
THIS 



9 
M 
9 
S 
* 

SHOWS 



FOR 

FOR 
ELBATWRD 
0P6SYMB0 
L 

ELBATWRD 
031X 
THAT INF0CI-P3 WOULD POINT TO THE BEGINNING OF 



SYMBOL FOLLOWED BY AN ENTRY 
X WOULD APPEAR AS FQLLQWSI 
(MADE FOR SYMBOL) 
(P OEPENDS ON PREVIOUS ENTRY) 



(MADE FOR X) 



the entry before symbol* *nd 
infocl+3-33 points to the entry for symbolt 
all entries of idnetifiers have the Information described above 
that is»the elbat word followed by the word contains the first 
five chabacters of alpha*and any additional words of alpha if 

NECESSAiY, 
THIS IS SUFFICIENT FOR ENTRIES OF THE FOLLOWING TYPES* 
REAL 
BOOLEAN 
INTEGER 
ALPHA 
FILE 
FORMAT 
LIST 
OTHgR ENTRIES REQUIRE ADDITIONAL INFORMATION, 
ARRAYS! 

the first word of additional info contains the number of 

olmenslonsun the low order part) , [4018] 
each succeeding word contains information about each lower 
boun° In order of appearance»qne word for each lower bouno, 
these words are made up as fqllqwsi 



01050000 


T 0007 


01051000 


T 0007 


01052000 


T 0007 


01053000 


T 0007 


01054000 


T 0007 


01055000 


T 0007 


01056000 


T 0007 


01057000 


T 0007 


0105B000 


T 0007 


01059000 


r 0007 


01060000 


T 0007 


01061000 


T 0007 


01062000 


r 0007 


01063000 


r 0007 


01064000 


T 0007 


01065000 


r 0007 


01066000 


T 0007 


01067000 


r 0007 


01068000 ' 


r 0007 


01069000 ' 


r 0007 


01070000 • 


r 0007 


01071000 ' 


r 0007 


01072000 ' 


r 0007 


01073000 ' 


r 0007 


01074000 ' 


r 0007 


01075000 1 


r 0007 


01076000 • 


r 0007 


01077000 1 


r 0007 


01078000 1 


r 0007 


01079000 1 


r 0007 


01080000 1 


r 0007 


01081000 1 


r 0007 


01082000 1 


' 0007 


01083000 1 


r 0007 


01084000 1 


r 0007 


01085000 1 


• 0007 


01086000 1 


r 0007 


01087000 1 


0007 


01088000 1 


" 0007 


01089000 1 


0007 


01090000 1 


0007 


01091000 1 


' 0007 


01092000 T 


0007 


01093000 T 


0007 


01094000 7 


0007 


01095000 7 


0007 


01096000 T 


0007 


01097000 T 


0007 


01098000 T 


0007 


01099000 T 


0007 


01100000 T 


0007 


01101000 T 


0007 


01102000 T 


0007 


01103000 T 


0007 


01104000 T 


0007 


01105000 T 


0007 


01106000 T 


0007 



ALSO IN 

AND C1J6J NUMBER 



C23IJ23 aAOD OPERATOR SYLLABLE (OlOi) OR 

SUB OPERATOR SYLLABLE (0301) CORRESPONDING 
RESPECTIVELY TO WHETHER THE LOWER BOUND IS 
TO BE AOOED TU THE SUBSCRIPT IN INDEXING OR 
SUBTRACTED, 
[351113 »U BIT ADDRESS OF LOWER BOUND, IF THE LOWER BOUND 
REQUIRES A PRT OR STACK CELL,QTH£RWJ SE THE BIT 
35 IS IGNORED ANO THE NEXT TEN BITSt 1 361 iQJ ) 
REPRESENT THE ACTUAL VALUE OF THE LUWER BOUNO 
U6I2J »00 OR 10 DEPENDING ON WHETHER THE [35U13 VALUE 
IS A LITERAL OR QPERAND»RESPECTIVELY, 
PROCEDURES! 

THE FIRST WORD OF ADDITIONAL INFO CONTAINS THE NUMBER OF 

PARAMETERS C40I83 

IF A STREAM PROCEDURE THEN THIS WORD CONTAINS 

C13J113 ENDING PRT AODRESS FOR LABELS* 

t 7163 NO OF LABELS REQUIRING PRT ADDRESSES* 

Of LOCILS, 

SUCCEEDING WORDS CONE FOR EACH FORMAL PARAMETER*^ ORDER 

OF APPEARANCE IN FORMAL PARAPART) ARE 

ElBAT WORDS SPECIFYING TYPE QF EACH PARAMETER AND WHETHER 

VALUE OR NOTUIOIU). 

THE AOORESSCEUtUJ) IS THE F- ADDRESS FOR EACH, 

IF THE PARAMETER IS AN ARRAY THEN THE INCR FIELDC C27 * 83 ) 

CONTAINS THE NUMBER OF Dl MEN5I0NS, QTHERwI SE INCH IS MEANINGLESS, 

LlNK([35ll33) IS MEANINGLESS, 

if a stream procedure then the class of each paramater is 

that of local id or file id, oEPEnoing on whether or not a release 

is done in the stream procedure, 

LABELS! 

AT DECLARATION TIME THE ADDITIONAL INFO CONTAINS 0, THE SIGN 
BIT TELLS WHETHER UR NOT THE DEFINITION POINT HAS BEEN REACHEOt 
IF SIGN * 0* THEN C36I123 CONTAINS AN ADDRESS IN CODEARRAY OF A 
LIST OF FORWARD REFERENCES TO THIS LABEL, THE END OF LIST FLAG 
0, IF SIGN *0# THEN C36U23 CONTAINS L FOR THIS LABEL. 
SWITCHES! 

THE FJELD C36U23 CONTAINS L FOR THE BEGINNING OF SWITCH DECLAR- 
ATION, [241123 CONTAINS L FOR FIRST SIMPLE REFERENCE TO SWITCH, 
IF SWITCH IS NOT SIMPLE* IT IS MARKED FORMAL. HERE SIMPLE MEANS 
NO POSSIBILITY OF JUMPING OUT OF A BLOCK. ; 

DEFINE MON *C 1* 13## 

73** 

13t# 

13*« 

53#> 



IS 



CLASS «C 21 
FORMAL«C 91 
VO *C1QI 
LVL «CIU 
ADDRESS«C16lllJ*j 



COMMENT THESE 



INCR 
LINK 
LINKR 
LINKC 
DEFINES ARE 



*C27I 831* 

»[35U33*» 

»C35t 53## 

«C40» 83*j 

USED TO PICK APART THE ELBAT WQRO, 
MON IS THE BIT WHICH IS ON IF THE QUANTITY IS MONITORED, 
CLASS IS THE PRINCIPAL IDENTIFICATION OF A GIVEN 

QUANTITY, 
FORMAL IS THE BIT WHICH Is ON IF THE QUANTITY IS A FORMAL 

PARAMETER, 
VO IS THE VALUE-OWN BIT, IF FORMAL * 1 THEN THE BIT 



01107000 
01108000 
01109000 
01110000 
01111000 
01112000 
01113000 
01114000 
01115000 
01116000 
01U7000 
01118000 
01119000 
0H20000 
01121000 
01122000 
01123000 

01124000 
01125000 
01126000 
01127000 
01128000 
01129000 
01130000 
01131000 
01132000 
01133000 
01134000 
01135000 
01136000 
01137000 
01136000 
01139000 
01140000 
01141000 
01142000 
01143000 
01144000 
01145000 
01146000 
01147000 
01148000 
01149000 
0U50O00 
01151000 
01152000 
01153000 
0H54000 
01155000 
01156000 
01157000 
01158000 
0U59O00 
OU60000 
0U61000 
01162000 
01163000 



0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 

0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 



comment classes fqr all 
comment classes for 



DISTINGUISHES VALUE PARAMETERS FROM OTHERS. IF 
FORMAL * THEN THE BIT DISTINGUISHES OWN VARIABLES 
FROM OTHERS, 

LVL GIVES THE LEVEL AT WHICH A 8UANTITY WAS DECLARED. 

ADDRESS GIVES THE STACK OR PRT ADDRESS. 

INCR GIVES A RELATIVE LINK TO ANY ADDITIONAL INFORMATION 
NEEDED* RELATIVE TO THE LOCATION IN INFO. 

LINK CONTAINS A LINK TO THE LOCATION IN INFO IF THE 
QUANTITY LIES IN ELBAT* OTHERWISE IT LINKS TO THE 
NEXT ITEM IN THE STACK. ZERU IS AN END FLAG. 

LINKR AND LINKC ARE SUBDIVISIONS 



DEFINE 



UNKNOWNID 
STLABID 
LOCLID 
DEFINEDID 

LISTID 

FRM1ID 

SUPERFRMTIO 

REALSUBID 

SUBID 

SWITCHID 

PROCID 

INTRNSICPROCID 

STRPROCID 

BOOSTRPROCID 

REALSTRPROCID 
ALFASTRPROCID 
INTSTRPROCIO 
BOOPROCID 

REALPRQCID 

ALFAPROCID 

INTPROCID 

BOOID 

REALID 

ALFAJD 

INTIO 

800ARRAYID 

REALARRAYIO 

ALFAARRAYID 

INTARRAYID 

NAMflD 

INTNAMEID 

LABEIID 
COMMENT CLASSES 

TRUTHV 

NONLITNO 

LITNO 

STRNGCON 

LEFTPAREN 

POLISHV 

ASTRISK 
COMMENT CLASS FOR 

DECLARATORS 



quantities 
identifiers; 



OF LINK.; 
OCTAL CLASS IS IN COMMENT; 



«00*# 
*01## 

•02** 

*Q3#* 

*04## 
•05## 
■06#» 
»07#» 
«0B#' 

•10## 
«11#j 
*12#> 
M3#» 

M5#, 

s l5## 

»17## 

M8## 
*19## 
»19#> 
«21#> 
*22#* 
*23#, 
*23#, 
*25#> 
*26#* 
«27#* 
*27#» 
«30#» 
*31#> 
*32#* 
FOR PRIMARY 
»33## 
*34#* 
*35#* 
»36#» 
*37#» 
»38#» 



COMMENT OOO; 
COMMENT OOi; 
COMMENT 002; 
COMMENT 003; 
COMMENT 004i 
COMMENT 005* 
COMMENT 0061 
COMMENT 007; 
COMMENT OlO; 
COMMENT Oil* 
COMMENT 012; 
COMMENT 013; 
COMMENT 014, 
COMMENT 015; 
COMMENT 016; 
COMMENT 017; 
COMMENT 017; 
COMMENT 021J 
COMMENT 022; 
COMMENT 023; 
COMMENT 023; 

COMMENT 025; 
COMMENT 026; 
COMMENT 027; 
COMMENT 027; 
COMMENT 03i; 
COMMENT 032; 
COMMENT 033; 
COMMENT 033; 
COMMENT 036; 
COMMENT 0371 
COMMENT 040; 

beginners; 

COMMENT 04i; 
COMMENT 042; 
COMMENT 043; 
COMMENT 044; 
COMMENT 045; 
COMMENT 046; 
COMMENT 047; 



*39#, 

ALL DECLARATORS; 
*40## COMMENT 050; 
COMMENT CLASSES FOR STATEMENT BEGINNERS 
DOUBLEV »42#» COMMENT 052; 



01164000 
0U65000 
OH66000 
0U67000 
01168000 
01169000 
01170000 
01171000 
01172000 
01173000 
01174000 
01175000 
01176000 
01177000 
01178000 

01179000 
01180000 

otieiooo 

01182000 
01183000 
0U84000 
01185000 
0H86000 
01187000 
01188000 
0H89000 
01190000 

onviooo 

01192000 
01193000 
01194000 
01195000 
01196000 
0U970O0 
01198000 
01199000 
01200000 
01201000 
01102000 
01(03000 
01204000 
01105000 
01205200 
01805400 
01206000 
01207000 
01208000 
01209000 
01210000 
01211000 
01212000 
01212100 
01fl2200 
01B13000 
01214000 
01215000 
01122000 



0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 

0007 
0007 
0007 

0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 



FQRV 


«43#» 


COMMENT 


053; 


WHIUEV 


«44#» 


COMMENT 


0S4; 


DOV 


*45*> 


COMMENT 


055; 


UNTILV 


»46## 


COMMENT 


056; 


ELSEV 


«47## 


COMMENT 


057; 


ENDV 


= 48#» 


COMMENT 


060; 


SEMICOLON 


»50*» 


COMMENT 


062; 


IFV 


*5l«* 


COMMENT 


063; 


GOV 


"52#» 


COMMENT 


064; 


IOCLASS 


«53## 


COMMENT 


065; 


BEGINV 


»54#* 


COMMENT 


066; 


COMMENT CLASSES 


FOR STREAM 


RESERVED WORDS; 


siv 


*55## 


COMMENT 


067; 


DIQ 


s56#, 


COMMENT 


070; 


CIV 


*57#> 


COMMENT 


071; 


TAllYV 


»58#» 


COMMENT 


072; 


OSV 


*59## 


COMMENT 


073; 


SKIPV 


= 60** 


COMMENT 


074; 


JUMPV 


*61#, 


COMMENT 


075; 


OBV 


*62*# 


COMMENT 


076; 


5BV 


*63## 


COMMENT 


077; 


TOGGLEV 


■64## 


COMMENT 


100; 


scv 


«65#> 


COMMENT 


101; 


LOCV 


*66## 


COMMENT 


102; 


ocv 


»67## 


COMMENT 


103; 


LQCALV 


»68## 


COMMENT 


104; 


LITV 


*69#* 


COMMENT 


105; 


tbnsfer 


*70## 


COMMENT 


106; 


COMMENT CLASSES 


FOR VARIOUS MISCELLANEOUS QUANTITIES; 


COMMENTV 


«71#» 


COMMENT 


107; 


FORWAROV 


*72#, 


COMMENT 


no; 


STEPV 


*73#, 


COMMENT 


111; 


THENV 


»74## 


COMMENT 


112; 


TOV 


*75#* 


COMMENT 


113; 


VALUEV 


*76#> 


COMMENT 


n«; 


WITHV 


*77#, 


COMMENT 


us; 


COLON 


«78#» 


COMMENT 


U6; 


COMMA 


*79## 


COMMENT 


117; 


CROSSHATCH 


*80#* 


COMMENT 


120; 


LFTBRKET 


«81## 


COMMENT 


121; 


PERIOD 


■82#» 


COMMENT 


122; 


RTBRKET 


*83## 


COMMENT 


123; 


RTPAREN 


*84## 


COMMENT 


124; 


AMPERSAND 


•85## 


COMMENT 


125; 


COMMENT CLASSES 


FOR OPERATORS; 




HEXQP 


*86## 


COMMENT 


126; 


BITOP 


*87## 


COMMENT 


127; 


ISOLATE 


»88## 


COMMENT 


130; 


OPERATOR 


*89## 


COMMENT 


131; 


NOTOP 


•90## 


COMMENT 


132; 


ASSiGNOP 


«91#* 


COMMENT 


133; 


EQVOP 


«92## 


COMMENT 


134; 


ORQP 


*93## 


COMMENT 


135; 


ANOOP 


»94## 


COMMENT 


136; 


RELOP 


"95## 


COMMENT 


137; 


AOOP 


■96#* 


COMMENT 


140; 


MULQP 


»97#» 


COMMENT 


hi; 



01223000 


T 0007 


01824000 


T 0007 


01225000 


T 0007 


01126000 


T 0007 


01127000 


T Q007 


01228000 


T 0007 


01230000 


T 0007 


01231000 


T 0007 


01232000 


T 0007 


01B33OO0 ' 


r 0007 


01234000 ' 


r 0007 


01235000 ' 


r 0007 


01236000 ' 


r 0007 


01237000 ' 


r 0007 


01138000 • 


r 0007 


0U39000 ' 


r 0007 


01240000 ■ 


r 0007 


01241000 ' 


r 0007 


01142000 1 


r 0007 


01243000 1 


r 0007 


01244000 1 


r 0007 


01245000 1 


r 0007 


01246000 1 


r 0007 


01247000 1 


r 0007 


01248000 1 


r 0007 


01249000 1 


r 0007 


01850000 1 


r 0007 


01251000 1 


r 0007 


01252000 1 


f 0007 


0l?53000 1 


r 0007 


01254000 1 


r 0007 


01255000 1 


' 0007 


01256000 1 


" 0007 


01257000 1 


r 0007 


01258000 1 


• 0007 


01259000 1 


0007 


01260000 1 


• 0007 


01261000 1 


0007 


01262000 1 


0007 


01263000 1 


0007 


01264000 1 


0007 


01265000 1 


0007 


01266000 1 


0007 


01266500 T 


0007 


01267000 T 


0007 


01268000 T 


0007 


01269000 T 


0007 


01270000 T 


0007 


01271000 T 


0007 


01272000 T 


0007 


01273000 T 


0007 


01274000 T 


0007 


01275000 T 


0007 


01276000 T 


0007 


0i|77000 T 


0007 


01|78000 T 


0007 


01278500 T 


0007 



* STRING 

COMMENT SUBCLASSES 



•99*, COMMENT 

FOR DECLARATORS 



PRTC75) * TIME1 
PRTC76) ■ ASTOG 
PRT<77) * SAF 
PRT(IOO) * SCRAM 



PRT(lOl) * ACCUM 



OWNV 
SAVEV 
BOOV 
REALV 
ALFAV 
INTV 
LABELV 
OUMPV 
SUBK 
OUTV 
INV 

MONITORV 
SWITCHV 
PROGV 
ARRAYV 
NAMEV 
FILEV 
STRIAMV 
DEFINEV 
DEFINE DDES » 

ADES - 

pDES b 

LOES ■ 

CHAR » 

FACTOP s 

OPERATORS s 

FILEID • 
MAXINTRINSIC » 
INT8INSICADK a 

TIMEU 



143; 

(KEPT 

»01## COMMENT Oi; 

*02*« COMMENT 02/ 

*03#/ COMMENT 03; 

*04#t COMMENT 04; 

*05#/ COMMENT 05; 

»05## COMMENT 05; 

*Q7*» COMMENT 07; 

»08#» comment io; 

■Q9#* COMMENT li; 

M0#* COMMENT 12; 

•11*/ COMMENT 13; 

*12## COMMENT 14; 

M3## COMMENT 15; 

*14#, COMMENT 16; 

*15*» COMMENT I7i 

=16#j COMMENT 20; 

*17#/ COMMENT 21* 

*ie#* COMMENT 22; 

*19#; COMMENT 23/ 
8*/ 
28#/ 
29*, 
30*/ 
3l#/ 

ASTRISK#/ 
HEXQP*/ 
0#, 
150## % USED IN BUILDING 

cmaxintrinsic div 30)*; a 



IN ADOREfcS)* 



INTABLE 
RESERVES 



REAL 
BOOLEAN 



0V414120 

SEG FOR INTABLE 



astog; 



BOOLEAN SAF; 
INTEGER SCRAM; 

COMMENT SCRAM CONTAINS THE 
OR RESERVED WORD 
ALPHA ARRAY ACCUMCO 1 103 J 



scramble 
scanned; 



INOEX FOR THE LAST IDENTIFIER 



PRT<102) * 



ARRAY 
STACKHEAD 

COMMENT 



COMMENT ACCUM HOLDS THE ALPHA AND CHARACTER COUNT OF THE LAST 

SCANNED ITEM IN A FORM COMPATIBLE WITH ITS APPEARANCE 
IN INFO/ THAT IS ACCUMCU = OQNAAAAA, ACCUMCU / I> 1/ 
HAS ANY ADDITIONAL CHARACTERS, ACCUMC03 IS USED FOR 
THE E|,BAT WORD BY THE ENTER ROUTINES; 
STACKHEADI0U25JI 



PRTC103) * COUNT 



INTEGER 



stackheadcn3 contains an index into info giving the top 
item in the n-th stack; 
count; 



comment count contains 
scanned; 



THE NUMBER OF CHARACTORS OF THE LAST ITEM 



ALPHA q; 



01278600 T 


0007 


01179000 T 


0007 


01180000 T 


0007 


01281000 T 


0007 


01882000 T 


0007 


01883000 T 


0007 


01284000 T 


0007 


01385000 T 


0007 


01286000 T 


0007 


01867000 T 


0007 


01288000 T 


0007 


0128V000 T 


0007 


01290000 T 


0007 


01291000 T 


0007 


01292000 T 


0007 


01293000 T 


0007 


01894000 T 


0007 


01295000 T 


0007 


0lg96000 T 


0007 


01897000 T 


O0O7 


01898000 T 


0007 


01B99000 T 


0007 


01299010 T 


0007 


01299020 T 


0007 


01299030 T 


0007 


01299040 T 


0007 


01299100 T 


0007 


01299200 T 


0007 


01299300 T 


0007 


01299400 T 


0007 


01199500 T 


0007 


01300000 T 


0007 


01300100 T 


0007 


01300200 T 


0007 


01301000 T 


0007 


01302000 T 


0007 


01303000 T 


0007 


01304000 T 


0007 


01305000 T 


0010 


01806000 T 


0010 


01107000 T 


0010 


01308000 T 


0010 


01309000 T 


0010 


01310000 T 


0010 


01311000 T 


0012 


01312000 T 


0012 


01313000 T 


0012 


01314000 T 


0012 


01315000 T 


0012 


01316000 T 


0012 



PRTC104) * Q 



PRTC105) 
PRT(106) 
PRTC107) 



PRT(HO) 



PRT(Ul) 
PPT(112) 
PRTCH3) 
PRTCU4) 
PRTCH5) 

PRT(H6) 



PRT<tl7) * TEN 



comment q contains accumcj] fqr the last identifier or reserved 
word scanned; 
array elbatc0i75jj integer i* nxtelbt; 

* ELBAT 

* I 

9 NXTELBT 

COMMENT EUBAT 13 AN ARRAY HOLDING E(.BAT WORDS FOR RECENTLY SCANNED 
QUANTITIES. THE TABLE ROUTINE MAINTAINS THIS ARRAY, 
(ELBAT IS TABLE SPELLED BACKWARDS.) THE TABLE ROUTINE 
GUARANTIES THAT ELBAT ALWAYS CONTAINS THE ELBAT WORDS 
FOR THE LAST 10 QUANTITIES SCANNED* NXTELBT IS AN INDEX 
POINTING TO THE NEXT AVAILABLE WORD IN ELBAT. I IS AN 
INDEX USED BY THE REST OF THE COMPILER TO FETCH THINGS 
FROM ELBAT, I IS ALSO MAINTAINED BY THE TABLE ROUTINE* 
INTEGER ELCLASS; 

* ELCLASS 

COMMENT ELCLASS USUALLY CONTAINS ELBATC I ] .CLASS; 
INTEGER FCR, NCR* LCR# TLCR>CLCR; 

* FCR 
9 NCR 

* LCR 

* TLCR 
» CLCR 

INTEGER MAXTLCR' 
■ MAXTLCR 

COMMENT FCR CONTAINS ABSOLUTE ADDRESS OF THE FIRST CHARACTQR QP 

THE CARD IMAGE CURRENTLY BEING SCANNED* NCR THE ADDRESS 
OF THE NEXT CHARACTQR TO BE SCANNED* AND LCR THE LAST 
CHARACTQR (COLUMN 73), TLCR AND CLCR CONTAIN ADDRESS OF 
THE LAST CHARACTER IN THE TAPE AND CARD BUFFERS, MAXTLCR 
IS THE MAXIMUM OF TLCR WH£N THE INPUT IS BLOCKED; 
ARRAY TENC-46I69J; 



DEFINE PRTBASE*i29*>PRTQP*e96«; COMMENT PASE AND TOP OF PRT; 
ARRAY PRTCPRTBASEIPRTOPJ; 



PRTQ20) * PRT 

INTEGER DlSKADR,CORADR; COMMENT GlQBALS FOR PRQGOESCBLDR; 
PRT(l2t) • DISKADR 

prt(122) * coradr 

Integer sgavlkqmment next available segment number; 
prt(123) * sgavl 

integer sgnokomment this is the current segment number; 

PRT(124) ■ SGNO 

ARRAY CQP#W0PCQI127]; 
PRT(125) * COP 
PRT(126) * WOP 

COMMENT THE EMIT ROUTINES PLACE EACH SYLLABLE INTO THE EDOC ARRAY 
AS SPECIFIED BY %", 

IF THE DEBUGTOG IS TRUE COP AND WOP ARE FILLED WITH 
THE BCD FOR THE OPERATORS, OTHERWI SE THEY ARE NOT USED; 
REAL LASTENTRY ; 
PRT(127) * LASTENTRY 

COMMENT LASTENTRY IS USED BY EMlTNUM AND CONSTANTCLEAN ♦ IT POINTS 
INTO INFQCQ,*3 AT THE NEXT AVAILABLE CELL FQR CONSTANTS; 
BOOLEAN MRCLEAN ; 



0H17000 T 
01318000 T 
01319000 T 



01320000 
01321000 
01322000 
01323000 
01324000 
01323000 
01826000 
01327000 
01328000 



0li29000 T 
01330000 T 



01332000 
01333000 
01334000 
01335000 
01336000 
01337000 
01340000 



01341000 T 
01342000 T 
01343000 T 



01369000 T 
01370000 T 
01371000 T 



01372000 
01373000 
01174000 
01375000 
01376000 



01377000 T 

01378000 T 
01379000 T 



0012 
0012 
0012 



0015 
0015 
0015 
0013 
0015 
0015 
0015 
0015 
0015 

0015 
0015 



01331000 T 0015 



0015 
0015 
0015 
0013 
0013 
0013 
0015 

0017 
0017 
0017 



01344000 T 0020 



0020 
0020 
0020 



0023 
0023 
0023 
0023 
0023 

0023 

0023 
0023 



PRTU30) * MRCIEAN 



PRTC131) 
PRTC132) 
PRTC133) 
PRT<134) 
PRT(135) 



COMMENT NO CQNSTANTCLEAN ACTION TAKES PLACE WHILE MRCLEAN IS 
FALSE. THIS FEATURE IS USED BY BLOCK BECAUSE OF THE 
POSSIBILITY THAT CON5TANTCLEAN WILL USE INFO tNEXT INFO J 
DURING AN ARRAY DECLARATION ; 
REAL GTl*GT2*GT3#GT4,GT5; 



QTt 
GT2 
GT3 
GT4 
GTS 



PRT(136) m GTI1 



INTEGER GTIU 



IN 



PRTC137) ■ RESULT 



IN 
PRT(iaO) * LASTUSED 



COMMENT THESE VARIABLES ARE USED FOR TEMPORARY STORAGE* 

TEGER result; 

COMMENT THIS VARIABLE IS USED FQR A DUAL PURPOSE BY THE TABLE 

ROUTINE AND THE SCANNER. THE TABLE ROUTINE USES THIS 
VARIABLE TO SPECIFY SCANNER OPERATIONS AND THE SCANNER 
USES IT TO INFORM THE TABLE ROUTINE OF THE ACTION TAKEN) 
TEGER LASTUSED* 

COMMENT LASTUSED IS A VARIABLE THAT CONTROLS THE ACTION OF 

READACARD* THE ROUTINE WHICH READS CARDS AND INITIALIZES 
OR PREPARES THE CARD FOR THE SCANNER. 
LASTUSED LAST CARD READ FROM 



MERGE* 



1 CARD READER ONLY* NO TAPE. 

2 CARD READER, TAPE AND CARD 

3 TAPE* TAPE AND CARD MERGE. 

4 INITIALIZATION ONLY, CARD ONLY. 



PRTC141) 



PRT(i<»2) 
PRT(H3) 
PRTC144) 
PRTU45) 



BOOLEAN LINKTOG* 
LINKTOG 

COMMENT LINKTOG IS FALSE IF THE LAST THING EMITTED IS A LINK, 
OTHERWISE IT IS TRUE* 
INTEGER LEVEL#FRSTLEVEL#SUBLEVEL#MQDE; 
LEVEL 



* FRSTLEVEL 
■ SUBLEVEL 

* MODE 



PRTC146) * 



PRTC147) * 



BOOLEAN 
ERRORTOG 

COMMENT 



COMMENT THESE VARIABLES ARE MAINTAINED BY THE B U OC 

TRACK OF LEVELS OF DEFINITION. LEVEL GI 
NESTING IN DEFINITION, WHERE EACH BLOCK 
GIVES RISE TO A NEW LEVEL. SUBLEVEL GlV 
THE PARAMETERS OF THE PROCEDURE CURRENTL 
FRSTLEVEL IS TH| LEVEL OF THE PARAMETERS 
GLOBAL OF THE PROCEDURES CURRENTLY BEING 

CURRENT DEPTH OF THE PROCEDURE IN 

(AT COMPILE TIME)* 



IS THE 
NESTED 
ERRORTOG* 



BOOLEAN 
ENDTOG 



ERRORTOG IS TRUE IF MESSAGES ARE CURRENTLY 
ERROR ROUTINES. EHRQRCQUNT IS THE COUNT 
ENOTOG; COMMENT ENDTOG TELLS THE TABLE TO A 

COMMENT TO BE PASSED BACK TO COMPQU 



01380000 
01381000 
01362000 
01B83000 
01384000 



01385000 T 
01386000 T 



01387000 
01388000 
01389000 
01390000 
01391000 

01392000 
01393000 
01394000 
01394500 
01394600 
01195000 
01396000 
01197000 
01398000 
01398300 
01399000 



T 

T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



01400000 T 
01401000 T 
01402000 T 



0023 
0023 
0023 
0023 
0023 



01384500 T 0023 



0023 
0023 

0023 
0023 
0023 
0023 
0023 

0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 

0023 

0023 
0023 



K ROUTINE TO KEEP 


01403000 


T 


0023 


VES THE DEPTH OF 


014Q4000 


T 


0023 


AND EACH PROCEDURE 


01405000 


T 


0023 


ES THE LEVEL OF 


01406000 


T 


0023 


Y BEING COMPILED. 


01407000 


T 


0023 


OF THE MOST 


01408000 


T 


0023 


COMPILED, MODE 


01409000 


T 


0023 


WHICH WE ARE 


01410000 


T 


0023 




01411000 


T 


0023 




01412000 


T 


0023 


ACCEPTABLE TO THE 


01413000 


T 


0023 


OF ERROR MSSGSI 


01414000 


T 


0023 


LLOW 


01415000 


T 


0023 


NOTAIL* 


01416000 


T 


0023 



BQQUEAn 5TREAMTQGJ 
PRTC150) * STREAMTOG 

COMMENT 



STREAMTUG IS TRUE IF WE ARE COMPILING 
IS USED TO CONTROL COUMPOUNDTAIL; 
DEFINE FS * Ut FP » l*$ FL ■ 3»# FR »4#; 

COMMENT THESE DEFINES ARE USED WHEN CALLING THE 
THEIR PURPOSES IS TO TELL 
THEIR MEANING ISI 
FS MEANS FROM 
FROM 
FROM 
FROM 



STREAM STATEMENT. IT 



VARIABLE ROUTINE. 
VARIABLE WHO IS CALLING. 



FP 


MEANS 


FL 


MEANS 


FR 


MEANS 



STATEMENT* 

PRIMARY, 

LIST* 

for; 



PRTC151) * L 



PRTU52) » TBI 



INTEGER Li 

COMMENT L IS 
DEFINE BLOCKCTR * 
DEFINE ATYPE *3## 
BOOLEAN TBi; 



COMMENT TBI IS 

INTEGER JUMPCTR* 
PRTC153) * UUMPCTR 

COMMENT 



THE LOCATION OF THE NEXT SYLLABLE TO BE 
I6#t JUNK « \T *, XITR * 18 $> LSTRTN » 
BTYPE*ATYPE#*OTYPE« ATYPE** 



A TEMPORARY BOOLEAN VARIABLE; 



emitted; 

19#; 



JUMPCTR IS A VARIABLE USED FOR COMMUNICATION BETWEEN BLOCK 
AND GfcNGQ. IT GIVES HIGHEST LEVEL TO WHICH A JUMP HAS 
BEEN MAOE FROM WITHIN A THE PRESENTLY BEING COMPILED 
SEGMENT, THE BLOCK COMPILES COOE TO INCREMENT AND DECRE- 
MENT THE BLOCKCTR ON THE BASIS OF JUMPCTR AT COMPLETION 
OF COMPILATION OF A SEGMENT - I.E. THE BLOCKCTR IS TALLIED 
IF LEVEL * JUMPCTR; 



real stlb; 
prtc154) *» stlb 

comment stlb is used by variable and agtualparapart to communicate 
the lower bound information for the last dimension of the 
array involved in a row designator. the format of th£ 
information is that of info. stlb is also sometimes used 
for temporary storage! 
define bumpl » l*l*2#; 

comment bumpl is used mostly to prepare a forward jump; 

DEFINE IDMAX » LABELlDiJ 

COMMENT IDMAX IS THE MAXIMUM CLASS NUMBER FOR IOENTIFIERSJ 
INTEGER DEFINECTR#0EFINEIN0EX; 
PRTU55) * DEFINECTR 
PRTU56) * DEFINEINDEX 

REAL JOINFO' COMMENT POINTS TO PSEUDO LABEL FOR JUMP OUTS! 
PRTC157) * JOINFO 

LPRT* COMMENT SHOWS LOCATION OF THE LAST LABEL IN THE PRT J 
PRT(160) p LPRT 

ne3tlevel' comment counts nesting for go to and jump quts# 
prtc161) ■ nestlevel 

jumplevel; comment number of levels to be jumped out; 
prtc162) « jumplevel 

comment the reals above are for stream statement; 
array macr0c0i35]; 



014I7OOO T 


0023 


01416000 T 


0023 


01419000 T 


0023 


01420000 T 


0023 


01421000 T 


0023 


01422000 T 


0023 


01423000 T 


0023 


01424000 T 


0023 


01425000 T 


0023 


01426000 T 


0023 


01427000 T 


0023 


01428000 T 


0023 


01429000 T 


0023 


01430000 T 


0023 


01452000 T 


0023 


01457000 T 


0023 


01458000 T 


0023 


01459000 T 


0023 


01460000 T 


0023 


01461000 T 


0023 


01462000 T 


0023 


01463000 T 


0023 


01464000 T 


0023 


01465000 T 


0023 


01466000 T 


0023 


01467000 T 


0023 


01468000 T 


0023 


01469000 T 


0023 


01470000 T 


0023 


01471000 T 


0023 


01472000 T 


0023 


01473000 T 


0023 


01474000 T 


0023 


01475000 T 


0023 


01476000 T 


0023 


01477000 T 


0023 


01478000 T 


0023 


01479000 T 


0023 


01480000 T 


0023 


01481000 T 


0023 


01482000 T 


0023 


01483000 T 


0023 


01484000 T 


0023 


01485000 T 


0023 


01466000 T 


0023 


01487000 T 


0023 



PRTC163) ■ MACRO 



PRTC164) 
PRTC165) 
PRTC166) 
PRTC167) 



COMMENT MACRO IS FILLED WITH SYLLABLES FOR STREAM STATEMENT/' 
REA^ p » COMMENT CONTAINS NUMBER QF FQRmAlS FOR STREAM PRQCSJ 



m p 
« Z 

* NEWT 

* DEFI 



z; 



COMMENT CONTAINS 1ST WORD OF INFO FOR STREAM FUNCTIONS; 



ARRAY NEWTAPBUF[OI9j; 



APBUF 

SAVE A 
NEARRAY 
COM 



RRAY 

MENT 



DEFINEARRAYCOI23]; 



INTEGE 
PRTC170) ■ BEGInCTR 

COM 



these variables are used to control action of the define, 
oefinectr counts depth of nesting of define-* pairs, 
the crosshatch part of the table routine uses oefinectr 
to oetermine the meaning qf a crqsshatcht d6finein0ex is 
the next available cell in the deflnearray. the define- 
array hol03 the alpha of the define being recreated and 
the previous values qf lastused* lcr* and ncri 
r beginctr; 



MENT 



8EGINCTR GIVES THE NUMBER OF UNMATCHED BEGINS. 
FOR ERROR CONTROL QNLYJ 
INTEGER DIALAjDIALB; 



IT IS USED 



PRTC171) 
PRT(172) 



« DIAL 
* DIAL 



PRTC173) * RRBl 



PRTU74) * RRB2 



comment these variables give the last value to which a and b were 
oia l eo« this gives some local optimization. EmITD 
worries about this, other routines cause a loss of memory 
by setting diala ano dialb to zero; 
boolean rrbi; comment rrbl — rrbn are boolean variables that serve the 

same function as rrl— rrn for real variables, see 

COMMENT AT RRi; 
BOOLEAN RRB2; COMMENT SEE COMMENT AT RRBl DECLARATION; 



DEFINE 
DEFINE 
DEFINE 
DEFINE 



ARRAYMONFILE * C87lUj*J 
SVARMQNFILE * C3?IU)*J 
NOolMPART « C40I83*; 
LABlMONFIlE 



C13UU*J 



DEFINE SWITMONFILE « C13IUJ#; 



DEFINE FUNCMONFILE « £27»UJ*J 



DEFINE OUMPEE * C2»11)#J 



comment arraymonfile is the define for 
the address of the file descriptor in 
the first word of additional infoi 
comment monitorfile is the define for 
the address of the file descriptor in 
info for monitored simple variables; 
comment the first additional word of info 
for arrays contains the number of dimensions 
in nodimpart; 

comment lablmonfile designates the bit 
position in the first word of additional 
info that contains the monitor file 
address for labels; 

comment switmonfile designates the bit 
position in the first wurd of additional 
info that contains the monitor file 
address for labels; 

comment funcmonfile designates the bit 
position in the first woro of additional 
info that contains the monitor file 
address for labels; 
comment the dumpee field in the first 
additional worq of info for labels contains 



01486000 
01489000 

01490000 

01490510 

01491000 

01492000 
01493000 
01494000 
01495000 
01496000 
01497000 
01498000 
01499000 

01500000 
01501000 
01102000 



01503000 
01104000 
01505000 
01906000 
01522000 

01523000 
01S24000 
01525000 

01126000 
01527000 
01528000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01539000 
01936000 
01537000 
01836000 
01539000 
01540000 
01541000 
01942000 
01543000 
01544000 
01545000 
01546000 
01547000 
01348000 



0026 
0026 

0026 

0026 

0026 

0031 
0031 
0031 
0031 
0031 
0031 

0031 
0031 

0031 
0031 
0031 



0031 
0031 
0031 
0031 
0031 

0031 
0031 
0031 

003 1 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 



PRK175) 

PRTC176) 

PRT(177) 
PRTC200) 
PRTC201) 

PRTC202) 

PRTC203) 

PRTC204) 

PRT(205) 

PRTC206) 
PRTC207) 

PRTC210) 

PRTC211) 



■ COOE 



« CARD 



■ LINE 



THE. ADDRESS OF THE COUNTER THAT IS INCREMENTED 
EACH TIME THE LABEL IS PASSEO IF THAT LABEL 
APPEARS IN A DUMP DECLARATION; 
DEFINE OUMPOR * [24111]*; COMMENT THE DUMPOR FIELD IN THE FIRST 

ADDITIONAL WORD OF INFO FOR LABELS CONTAINS 
THE ADDRESS OF THE ROUTINE THAT IS GENERATEO 
FROM THE DUMP DECLARATION THAT IN TURN CALLS 

THE PRINTI ROUTINES 
DEFINE SUBQP*«8#; 
FILE OUT CODE DISK SERI ALC II 1 H 1* 1023 )J 

FILE IN CAR0CRR1#10»RR2)J 

FILE OUT LINE DISK SERI ALC20«240QKRR3* 15»RR4,SAVE 10 J J 



PRTC212) * 

PRTC213) * 

PRT(214) * 

PRT(215) * 

PRT(216) * 

PRT(217) * 

PRT(220) * 



FILE ATTRBUTS 

ARRAY LlNCOlZOj; COMMENT PRINT OUTPUT BUILT IN LIN* 
LIN 

INTEGER DA; 
DA 

SAVE FILE OUT NEWTAPE DISK SERI ALC20 12400 J ( RR5,RR6»RR7 * SAVE 1); 
NEWTAPE 

FILE IN TAPE W 0CRDIMG"(2»RR8»RR«J; 
TAPE 

SAVE ARRAY CBUFF*TBUFFCQ»9 ]; % INPUT BUFFERS, 
CBUFF 
TBUFF 

FILE OUT CODISK DISK SERIAL £201*00] (2,3o#300); 
CODISK 

FILE OUT DISK DISK Cl»2100] "MCP n?, DISK w C 3, 30* 3G0# SAVE 99)i 
DISK 

DEFINE MCPTYPE • 63** 

DCINTYPE * 62#, 

TSSINTYPE = 6i#; 

comment espol code files are uniquely typed in their file 

headers. headeru3.c36i6] is the field used to contain 

the type; 
file out deck c2m0); 

DECK 

FILE STUFF DISK SERIALC20 » 15Q](2» 10, 30# SAVE 15); 
STUFF 

ARRAY TWXAC0U6]; 
TWXA 

REAL C; 
C 

COMMENT C CONTAINS ACTUAL VALUE OF LAST CONSTANT SCANNED; 
REAL T; 
T 

COMMENT T IS A TEMPORARY CELL; 
INTEGER TCOUNT; 
TCOUNT 

REAL STAflKCT; 

stackct 

comment tcount is a variable which molds a previous value of count 
for the use of convert; 
define lastsequence * 145** 



01549 
01550 
01551 
01552 
01553 
01554 
01555 
01550 
01556 
01156 



000 

000 

000 

000 

000 

000 
000 

000 
500 
voo 



01557000 T 
01558000 T 

01559010 T 
01559020 T 
01560000 T 
01561000 T 
01561056 T 

01561300 T 
01561400 T 

01561410 T 
01561420 T 
01561430 T 
01561440 T 
01561450 T 
01561460 T 
01961500 T 

01561600 T 

01561700 T 

01562000 T 

01563000 T 
01564000 T 

01565000 T 
01566000 T 



0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 
0031 

0035 
0039 



0046 
0049 
0049 
0056 
0060 

0064 
0068 

0075 
0075 
0075 
0075 
0075 
0075 
0075 

0079 

0086 

0089 

0089 
0089 

0089 
0089 



01566010 T 0089 

01567000 T 0089 

01568000 T 0089 

01569000 T 0089 



LASTSEQROW * 2#; 



PRTC221) * FOULED 



REAL FOULED* 



BOOLEAN 

FUNCTOG* 



PRT(222) * FUNCTOG 



PRT(223) 
PRTC224) 

PRTC225) 
PRT(226) 
PRT(227) 
PRT(230) 
PRT(231) 

PRTC232) 
PRTC233) 
PRTC234) 



P2* 
p3* 

VQNF, 

FORMALP* 

PTOG, 



COMMENT TELLS WHETHER PROCEDURE BEING DECLARED IS A 

function; 
comment generaly tells whether own was seen; 

comment tells whether save was seen/ 

comment value or own field of elbat word; 

comment formal field of elbat word; 

COMMENT TELLS THaT FORMAL PaRaPaRT IS BEING PRQCESSD; 



* P2 

* P3 
a VONF 

* FORMALF 
« PTOG 

spectog* 

* SPECTOG 

STOPENTRYf COMMENT THjS MAKES THE ENTRY PROCEDURE ENTER ONLY 

* STQPENTRY 

* AJUMP 



AJUMp; 



ONE 10 AND THEN EIXT; 
COMMENT TELLS WHETHER A JUMP IS HANGING; 



PRTC235) 
PRTC236) 
PRT(237) 
PRT(2aO) 
PRT(241) 



BOOLEAN stopdefine; 

b STOPDEFINE 

INTEGER MAXSAVe; 
p MAXSAVE 

COMMENT THIS CONTAINS THE SIZE OF THE MAXIMUM SAVE ARRAY 
OECLAREOt IT IS USED TO HELP DETERMINE STORAGE REQUIREMENTS 
FOR THE PROGRAM PARAMETER BLOCK FOR THE OBJECT PROGRAM; 
REAL 

COMMENT CLASS IN LOW ORDER 7 BlTSi 



■ KLASSF 

* ADDRSF 

« levelf 

* LINKF 

* INCRF 



KLASSF* 

ADDRSF* 

LEVELF* 

LINKF* 

INCRF* 

PROINFO* 



COMMENT ADDRESS IN LOW ORDER U BITS; 

COMMENT LVL IN LOW ORDER 5 BITS; 

COMMENT LINK IN LOW OROER 13 BITS; 

COMMENT INCR CN LOW ORDER 8 BITS; 

COMMENT CONTAINS ELBaT WORD FOR PROCEDURE BEING 



01570000 
01171000 
01172000 
01S73000 
01574000 
01575000 
01970000 
01877000 
01178000 
01879000 
01580000 
01681000 
01882000 
01163000 
01583100 



T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0089 
0089 
0089 
0089 
0069 
0089 
0089 
0089 
0089 
0089 
0089 
0089 
0089 
0069 
0089 



01584000 T 0069 

01585000 T 0089 

01966000 T 0089 

01987000 T 0089 

01186000 T 0089 



01989000 


T 


0069 


01990000 


T 


0089 


01591000 


T 


0069 


01592000 


T 


0089 


01993000 


T 


0089 


01594000 


T 


0089 


01595000 
01590000 


T 
T 


0089 
0089 


01597000 


T 


0069 


01998000 


T 


0069 


01599000 

oioooooo 

01601000 
01002000 
01603000 


T 
T 

T 

T 
T 


0069 
0089 
0089 
0069 
0089 


01004000 


T 


0089 


01005000 


T 


0089 


01606000 


T 


0089 


01007000 


T 


0089 


01008000 


T 


0089 



PRT(242) B PROINFO 



PRT(243) 
PRT(244) 



p TYPEV 



PRT(245) * PROADO 
PRTC246) * MARK 



PRTC247) 
PRTC250) 
PRTC251) 
PRTC252) 
PRTC253) 

PRT(254) 
PRT(255) 

PRTC256) 
PRTC257) 



PJ 

J 

LASTINFO 

NEXTINFO 

FIRSTX 



G* 

TYPEV* 

PRQADO* 
MARK * 

PJ' 
J* 
LASTINFO* 
NEXTlNFO* 
FIRSTX* 

savel; 



declared; 
comment global temporary for block; 

comment used to carry class of identifier 

being declared; 
comment contains address of procedure being 



* SAVEL 

■ NCI I 



INTEGER NCIi; 



COMMENT 

COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

COMMENT 
COMMENT 



DECLARED; 
CONTAINS INDEX 



INTO INFO WHERE FJRST WQRD 



OF ADDITIONAL INFO FOR A PROCEDURE ENTRY; 
FORMAL PARAMETER COUNTER; 

ARRAY COUNTER; 

INDEX TO LAST ENTRY IN INFO; 

INDEX FOR NEXT ENTRYIN INFO* 

RELATIVE ADD OF FJRST EXECUTABLE CODE 

IN BLOCK, INITIALIZED TO 4095 EACH TIME; 
SAVE LOCATION FOR FIXUPS IN BLOCK; 

THIS CONTAINS THE COUNT OF CONSTANTS 

ENTERED IN InFQ AT ANY GIVEN TIME; 



unhook;forward; 
makeupaccum;fqhward; 



procedure 
* unhook 

procedure 

■ MAKEuPACCUM 

define purpt=ui8J#*secret*2*; 
comment these defines give the names 
numbers refer to the appropriate 
full name is also given* 



OF THE WORD MODE OPERATORS, THE 
SECTION OF THE PRODUCT SPECS, THE 



DEFINE 
AOD 
BBC 
BBW 
BFC 
BFW 
CDC 
CHS 
COC 
COM 
DEL 
DUP 
EQL 
LBC » 
LBU * 
GEQ • 
LFC * 

LFU 
GTR « 
IDV * 



16** COMMENT (0101) 7.4,2.1 

22** COMMENT (0131) 7,4,5,4 

534#* COMMENT (4131) 7,4,5,2 

38#* COMMENT (0231) 7,4,5,3 

550** COMMENT (4231) 7,4,5,1 

168** COMMENT (1241) 7.4,10,4 

134** COMMENT (1031) 7,4,7,11 

401* COMMENT (0241) 7.4,10,3 

130*' COMMENT (1011) 7.4.10,5 

10** COMMENT (0045) 7,4,9,3 

261** COMMENT (2025) 7,4,9,2 

581** COMMENT (4425) 7,4,4,3 

278** C0MMENT(2131) 7,4.5,9 

790** C0MMENT(6131) 7,4.5.7 

21** COMMENT (0125) 7,4,4,2 

2941' C0MMENT(2231) 7,4,5,8 

« 806** C0MMENT(623t) 7,4,5,6 

37*' CUMMENT (0225) 7,4,4,1 

384** COMMENT (3001) 7.4,2,5 



add; 

BRANCH 
BRANCH 
BRANCH 
BRANCH 



BACKWARD CONDITIONAL' 

BACKWARD; 

FORWARD CONDITIONAL; 

FORWARD* 



construct descriptor call; 

change sign; 

construct operand call* 

communication operator; 

delete; 

duplicate; 

EQUAL! 

60 BACKWARD CONDITIONAL' 
GO BACKWARD (WORD); 
GREATER THAN OR EQUAL TO* 
GO FORWARD CONDITIONAL' 
GO FORWARD (WORD); 
GREATER THAN! 
INTEGER DIVIDE* 



01609000 T 0089 

01610000 T 0089 

01611000 T 0089 

01612000 T 0089 

01613000 T 0089 

01614000 T 0089 

01615000 T 0089 

01616000 T 0089 

01617000 T 0089 

01618000 T 0089 



01619000 T 



01628000 
01629000 
01630000 
01131000 
01632000 
01633000 
01634000 
01635000 
01636000 
01637000 
01638000 
01639000 
01640000 
01641000 
01642000 
01643000 
01644000 
01645000 
01646000 
01647000 
01648000 
01649000 
01650000 
01651000 



0089 
0069 



01620000 T 

01621000 T 0089 

01622000 T 0089 

01623000 T 0089 

01624000 T 0089 

01625000 T 0089 

01626000 T 0089 

01627000 T 0093 



0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 

0093 
0093 
0093 
0093 
0093 
0093 

0093 
0093 
0093 
0093 

0093 
0093 



XNX 
ISO 
ISN 
LEO 
LND 
ING 
LOO 

LOR 
LOV 
LSS 
MKS 

MUL 
NEQ 

NOP 
PRL 
PRTEs 

9 
9 
* 
9 
3 

9 



ROV 
RTN 
RTS 
SNO 
SSP 
STO 
SUB 
XCH 
XIT 

zpi 

SCl 
SAN 
SCS 

COMMENT 
DEFINE 
OIA = 

DIB « 

TRB « 



24#j 
532#- 

533*< 
67#< 
19#j 

260*; 
35#, 

131*- 

549*, 
72*. 
64#i 
69*> 

11*- 

18** 

12*< 

896#, 

39«, 

167#, 

132#< 

582#, 

68#i 

9 na*> 

w 133*^ 
8 71*, 
* 322*, 
»l003*i 
=1004*. 
«iQl9*i 
THESE 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



DEFINES ARE 



0141) 
4121) 
4221) 
4125) 
0415) 
0115) 
2021) 
0215) 
1015) 
4225) 
0441) 
0401) 
0425) 
0055) 
0111) 
0061) 
7001) 
0235) 
1235) 
1021) 
4431) 

0421) 
0301) 
1025) 
0435) 
2411) 
7655) 
7661) 
7755) 
USED 



7.4.10.2 

7.4,6.3 

7,4,6,4 

7.4.4.4 

7,4.3.1 

7.4,3,4 

7,4.10,1 

7.4,3,2 

7,4.3,3 

7,4,4,5 

7.4,8,1 

7,4,2.3 

7,4,4.6 

7.4.7,1 

7,4,10,6 

7.4,10,9 

7.4.2.6 

7.4,8.3 

7,4,8,4 

7,4,6,2 

7.4,7,10 

7»4i6.1 

7.4,2.2 
7,4,9.1 
7,4,8,2 
7.4,10,8 



BY EMITO; 



45*> 
49*» 
53*> 



COMMENT 
COMMENT 
COMMENT 



PRTC260) 
PRTC261) 

PRTC262) 



PRTC263) 
PRTC264) 

PRTC265) 
PRT(266) 
PRTC267) 
PRT(270) 



REAL MAxSTACK#STACKCTRJ 
MAXSTACK 
STACKCTR 

INTEGER MAXROW; 
MAXRQW 



XX55) 7,4,7,1 
XX61) 7,4.7,2 
XX65) 7,4,7,3 



INDEX* 

INTEGER STORE OBSTRUCT IVE; 
INTEGER STORE NON-DESTRUCT; 
LESS THAN UR EQUAL TO; 

logical and; 
logical negate; 
load operator; 
logical or; 
logical eqivalence; 
less than; 
mark stack; 

multiply; 
not equal to; 
no operation; 
program release; 
extend prti 
remainder divide; 
return normal; 
return special; 
store nqn-d&5tructive; 

SET SIGN PLUSJ 

STORE destructive; 

subtract; 

exchange; 

exit; 

conditional halt; 

scan out initialize; 

system attention needeo; 

scan out stop; 



dial a; 
dial b; 
transfer 



bits; 



integer 
segsizemax 

INTEGER 
F 

NL0 
NHI 

TLO 
THI 



COMMENT THIS CON 

ARRAYS DECLARED. 

SEGSIZEMAX; COMMENT 



TAINS THE MAXIMUM ROW 
ITS USE IS LIKE THAT 
CONTAINS MAX SEGMENT 



SIZE OF ALL 

OF maxsave; 
size; 



NON-SAVE 



f; 



REAL NLQ#NHI»TLO»TMi; 



PRTC271) * DPTOG 



boolean dptog; 



COMMENT 
D0LLAR2T0G; 



THE ABOVE THINGS ARE TEMP STORAGE FOR DOUBLE NOS; 



BOOLEAN 
PRTC272) ■ D0LLAR2T0G 

DEFINE FZERQ*896#; 
REAL T1,T2*N'K,AKKUM; 



01652000 
01653000 
0l«54000 
01655000 
01656000 
01657000 
01958000 
01659000 
01660000 
01661000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670Q00 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01677050 
01677100 
01677150 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 



01684000 

01685000 
01686000 
01687000 

01688000 
01689000 



01691000 
01691500 



01690000 T 

T 



0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 

0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 

0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 



0093 

0093 
0093 
0093 

0093 

0093 



0093 



0093 
T 0093 



01692000 T 0093 
01893000 T 0093 



PRT(273) * 

PRTC274) * 

PRT(275) » 

PRT(276) s 

PRTC277) * 

PRT(300) * 

PRTC301) » 

PRT(302) * 

PRTO03) * 

PRTC304) ■ 



PRT(305) 
PRTC306) 



PRTC307) 
PRK310) 
PRTC3U) 
PRTC312) 
PRTC313) 
PRTC3H) 
PRTC315) 
PRT(316) 



PRT(317) 
PRTO20) 

PRT(321) 
PRT(322) 



Tl 

T2 

N 

K 

AKKUM 

BOOLEAN STOPGSp; 
STOPGSP 

INTEGER BUP; 
BUP 

BOOLEAN INLINETQGJ 
INLINETOG 

COMMENT UNIQUE GLOBAL TEMP FOR BLOCK; 
ARRAY STA1COI 103i 
GTA1 

BOOLEAN A&RAY SPRT[QI313; 
SPRT 

COMMENT SPRT IS TO BE CONSIDERED TO BE AN ARRAY OF 32 32 BIT 

FIELDS. THE 32 BITS ARE IN THE LOW ORDER PART OF EACH 
WORO. THE BIT IS ON IF AND ONLY JF THE CORRESPONDING 
PRT CELL HAS A PERMANENT ASSIGNMENT; 
INTEGER PRTI'PRTIMAX; 
PRTI 
PRTIMAX 

COMMENT PRTIMAX GIVES NEXT PRT CELL AVAILABLE FOR PERMANENT ASSIGN- 
MENT. PRTI GIVES NEXT PRT CELL POSSIBLY AVAILABLE FOR 
TEMPORARY ASSIGNMENT; 
DEFINE ALPHASIZE * C12»63#; CQMM£NT ALPHASI^E IS THE DEFINE FOR THE BIT 

POSITION IN THE SECOND WORD OF INFO WHICH 
CONTAINS THE LENGTH OF ALPHA; 
DEFINE EDOCINOEX * L, t C 36 I 3 3 # L . C 39 | 7 J # | COMMENT EDOCINDEX IS THE WORD 

PORTION OF L SPLIT INTO A ROW AND 
COLUMN INDEX FUR EOOC; 
DEFINE CPUUSl * 769#; COMMENT SEE COMMENT AT CPLUS2 DEFINE; 
DEFINE CPLUS2 * 770#l COMMENT CPLUSi AND CPLUS2 ARE EXPLICIT CONSTANTS 

USED IN THE GENERATION OF C-RELATlVE CODE; 
PROCEDURE FLAG(ERRNUM); VALUE EKRNUM; JNTEGER ERRNUM; FORWARD; 
FLAG 

ALPHA PROCEDURE B2QC8); VALUE 8; REAL 61 FORWARD; 
B2D 

REAL PROCEDURE TAKE(W); VALUE W* INTEGER Mi FORWARD! 
TAKE 

boolean macroid; 

MACROID 

REAL PROCEDURE FIXOEFINEINFQU)! VALUE T; REAL Tl FORWARD! 
FIXDEFINEINFO 

PROCEDURE £RR <ERRNUM>! VALUE EHRNUMI INTEGER ERRNUM; FORWARD; 
ERR 

INTEGER PROCEDURE GIT(L>; VALUE LI REAL L; FORWARD! 
GIT 

ARRAY CALLAE0l31#0i255j; 
CALLA 

DEFINE CALLtCALUn«CALLA[(GT3»CALLl).HNKR#GT3,LlNKC3#; 

real callx,callinfo>nestctr>nestcur; 

CALLX 
CALLINFO 
NESTCTR 
NESTCUR 



01694000 T 0093 

01695000 T 0093 

01695500 T 0093 

01696000 T 0Q93 

01097000 T 0093 

01696000 T 0095 



01699000 T 
01700000 T 
01701000 T 
01702000 T 
01703000 T 



01704000 
01705000 
01706000 
01707000 
01708000 
01709000 
01710000 
01711000 
01712000 
01713000 
0171*000 
01715000 
01116000 



01717000 T 

01717700 T 

01P17800 T 

01717900 T 

01718000 T 

01719000 T 

01720000 T 

01721000 T 
01722000 T 



0098 

0098 

0098 
0098 

0098 



0098 
0098 
0098 
0098 
0098 
0096 
0098 
0098 
0098 
0098 
0098 
0098 
0098 

0098 

0098 

0098 

0098 

0098 

0U98 

0098 

0100 
O100 



BOOLEAN NESTOG; 
PRTC323) « NESTOG 

ARRAY NESTPRTCPRTBASEIPRTOP31 
PRT(324) = NESTPRT 

ARRAY S0RTPRTCQIPRTQP-PRTBA5EJ* 
PRTC325) ■ SORTPRT 

COMMENT "BLANKET" BLANKS OUT N + l WORDS IN "THERE"! 
STREAM PROCEDURE BLANKET C N# THERE ) ; VALUE N; 
PRT(326) * BLANKET 

BEGIN 

Dit. there; os**e lit- "; sihthere; dsi*n wds; 
end blanket; 



01723000 T 0100 

01724000 T 0100 

01*25000 T 0103 

01726000 T 0107 

01737300 T 0107 

0173/350 T 0107 

01737400 T 0107 

01737450 T 0108 

01*37500 T 0110 



STREAM PROCEDURE CHANGESEQC VAL> OLDSEQ >J VALUE CLOSES)* 
PRTC327) * CHANGESEQ 

BEGIN DIlsQLDSEQ; SIlaVALi DS|s8 DEC END CHANGESEQ; 



01741200 T 0110 



01*41300 T OHO 



STREAM PROCEDURE SE«UENCEERRQR( L >i 
PRTC330) * SEQUENCEERROR 

BEGIN DII«L* DS»b16 LlT"S£GUENC£ ERROR "J END SEttUENCEERRQR; 



01742100 T 0112 
01742110 T 0112 



STREAM PROCEDURE GETVQIOC VP#NcR> LcR* SEQ ) ; VALUE NcR'LCR; 
PRT(331) * GETVOID 

BEGIN 

LABEL L'EXIT; 

LOCAL n; 

sii.ncr; dii*vp; os»*8 lit "0"; 

8<34(IF SC»" " THEN SH«SI*1 ELSE JUMP OUT 2 TO D); 
GO TO EXIT; X NO VOID RANGE GIVEN* RETURN ZERO, 

Li 

IF. SC*"X" THEN GO TO EXIT; X STILL NO RANGE. 
IF SC»""" THIN 
BEGIN 

sxi«si*u oii»lcr; dsi-i lit"""; % stopper for scan 

NCRI*Si; X TEMPt STORAGE, SINCE NCR IS "LOCAL" TO GETVOID. 
8CIF $C*""" THEN JUMP OUT ELSE 

BEGIN TALLYl»TALLT*l; SI|»SI+1 END); 
END 
ELSE BEGIN 

NCRI*SI# X TEMP, STORAGE* SINCE NCR IS "LOCAL" TO GETVOID. 
DIlsLCR; D* 1 *! LIT" »J * STOPPER FOR SCAN 
8CIF SC«" " THEN JUMP OUT ELSE 

BEGIN TALLYI*TALLY*i; SI|sSI+l END); 

eno; 
si«*ncr; dii»vp; dh*dx+sj x restore pointers, 
ni*t*uyi di«*di-n; dsisn chr; 

EXITI 



01756000 T 0H4 



01*57000 
01758000 
01759000 
01761000 
01*62000 
01763000 
01764000 
01764500 
01*65000 
01766000 
01767000 
01768000 
01?69000 
01770000 
01771000 
01772000 
01*73000 
01*74000 
01775000 
01776000 
01777000 
01780000 
01781000 
01782000 



T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0114 
0115 
0115 
0115 
0116 
0119 
0119 
0119 
0120 
0121 
0121 
0122 
0123 
0124 
0126 
0126 
0126 
0126 
0127 
0128 
0130 
0130 
0130 
0132 



end or getvqid; 



01764000 T 0132 



real voidcr*vqidplace*vuidtcr*vqiotplacej 
prtc332) « voiocr 
prtc333) 9 voidpiace 
prt(334) * voiotcr 
prtc335) ■ voidtplace 

FORMAT 



01785000 T 0132 



BUG(X24#4CA4,X2)>; 



PRTC336) * BUG 



PROCEDURE DATIME* 
PRT(337) » DATIME 

BEGIN 

INTEGER H*MIN*8> ALPHA N1*N2; 

STACK(F*2) ■ H 

STAQKCF+3) * MIN 

STACK(F*«) « Q 

STACK(F+5) = Nl 

STACKCF*6> a N2 



01800000 T 0132 
01102000 T 0132 
START OF SEGMENT ********** 

4 IS 8 LONG* NEXT SEG 
01820000 T 0132 

01821000 T 0132 
01822000 T 0132 
START OF SEGMENT ********** 



PRTC340) * DATER 



ALPHA STREAM PRgCEDURE DATERCDATE); VALUE DATE; 

BEGIN 

DI»»LQC dater; SIlsLOC UATEJ SItssl+2; 

2(ds«»2 chr; dsj»lit m / m >; dsi»2 chr; 
end of dater; 



01823000 T 0000 

01824000 T 0000 

01825000 T 0000 

01826000 T 0000 

01827000 T 0002 



HI*TIME1 DIV 216000/ MIN»8(TiMEl OJV 3600) MOD 60; 

ni»*disk,mfid; n2i*oisk,fid; 
writecline* 

<X22# M BURH0UGHS B-5700 ESPOL CUMPlLfc-R MARK "* 
PRTC341) ■ *FORMAT DESCRIPTOR* 

"XVI.O.OO" 

,» «,A6# n DAY# "#0*"* "*I2*"I"#A2*X1*A3# 
////X45*A1*A6*"/"*A1*A6*/X45*l5 ("*")//>* 

TIME(6)*0ATER(TIMEC5)J*12XREAL(QI«H MOD 12*0)*Q* 
PRTC342) m *LIST* LABEL* OR SEGMENT DESCRIPTOR* 

Q!*MIN MOD 10+CMIN DIV 1Q)X64* 
IF Hii2 THEN "PM,« ELSE »AM,«* 
Nt.t616]*Nl#N2,t6l6]*N2); 

prtc343) « output(w) 

noheadingibfalse; 
end of datime; 



01828000 T 0003 

01828500 T 0007 

0182V000 T 0013 

01830000 T 0015 

01831000 T 0015 

01832000 T 0015 

01832500 T 0015 

6 IS 40 LONG* NEXT SEG 

01833000 T 0016 

0183«000 T 0032 

01835000 T 0036 

01835500 T 0043 

01836000 T 0053 

01837000 T 0054 

5 IS 98 LONG* NEXT SEG 



COMMENT THIS SECTION CONTAINS ALL CODE PERTAlNENT TO READING CARDS 



02000000 T 0132 



PRT(344) * 



CO 
80 
OCTIZE 



AND SCANNING THEM; 
MMENT OCTIZE REFORMATS ACCOM FOR OCTAL CONSTANTS; 
OLEAN STREAM PROCEDURE OCT IZECS* 0# SKP, CNT ); VALUE SKP,CNT; 

BEGIN 



sn«s; sn«si+4; dii*d; skpcusis3 reset*; % right j 

CNTCIF SC2"8" THEN TALLYHl ELSE IF SC<"0" THEN TAL 
3C IF SB THEN DSI*SET ELSE 0S»«R£$ET; SKIP S8>J; 
SIIbO; IF SB THEN 

" " " " end; 



RIGHT JUSTIFY, 

TALLYlBj; SKIP 3 SB; 



SIIbO; IF SB THEN 

begin tallyhij dii*d; dsi«reset t „„, 
octizei«tally; * "i" • non octal character or 
end octize; 



* PREVENT FLAG BIT. 
FLAG BIT. 



Q280100Q T 
02001836 T 
02001838 T 



02001840 
02001842 

02001844 
02101846 

03001848 
02*01850 
02001852 
02901854 



0132 
0132 
0132 

0132 
0133 
0135 
0138 

0140 
0141 

0142 
0142 



COMMENT HEXIZE REFORMATS ACCUM FOR HEXADECIMAL CONSTANTS; 
BOOLEAN STREAM PROCEDURE HEXIZE(S,D,SkP,CNT ); VALUE SkP,CNT; 
PRT(345) • HEXIZE 

BEGIN LOCAL T 1> T2* TEMP2, TEMP i; LABEL AGIN; 
COMMENT LOCAL VARIABLES ARE LOCATED IN REVERSE ORDER FROM THE 
WAY THEY ARE DECLARED IN STREAM PROCEDURES; 
DIl»LQC TEMPU CNT<DS|*LIT"1")J % In CASE A CHAR*A,B,C»D.QR F, 

su»s; sn*si + 3; dh«lqc tempi; % we may overflow into temp2, 

CNTCIF SC<"0 M THEN IF SCi w A" THEN IF SCS"F« THEN % WORK HARD* 
BEGIN 
TH-Si; T2»»DU 0H»Ti; SH=T2; % FLIP* MAN. 

ost«3 reset; si»«ti; qu«T2J % flip back, 

DS»*1 ADD; DIMDI-i; 5kIP 2 DB; DSI-1 SET; SkIP 3 OB; 
GO AGINJ 

end; 

if sc<"0" then tallyj*i; dsl»chrj x < * non-hex character. 



AGIN« 



sii.loc tempi; diiso; skp<d$»*4 reset); % right adjust constant, 
cnt(skip 2 sb; 
4cif sb then ds|»set else dsureset; skip sb}}*» final convent, 

SItaDJ IF SB THEN 

BEGIN TALLY»»U OH*Di DSl*RESET END; % PREVENT FLAG BIT, 

hexizeistally; % w i" if programmer goofed, 
end hexize; 



02801856 
02001858 

02001860 
02801862 
02001664 
02001866 
02001868 
02001870 
02001872 
02001874 
08001876 
02001878 
02001880 

02001682 
02001884 
02001686 
02001888 
02001890 

02001892 
02001890 
02001895 
02001896 
02001897 
02601898 



0143 
0143 

0143 
0144 
0144 
0144 
0146 
0146 
0150 
0150 
0151 
0152 

0153 
0154 
0154 
0155 
0155 
0155 
0157 
0158 
0160 
0161 
0162 
0163 



COMMENT PUTSEQNO PUTS THE SEQUENCE NUMBER OF THE CARD-IMAGE 
CURRENTLY BEING SCANNED INTO THE INFO TABLE IN CASE 
IT IS NEEDED FOR FUTURE REFERENCE; 
STREAM PROCEDURE PUTSEONO( INFQ#LCR); VALUE LCRJ 
PRT<346) * PUTSEONO 

BEGIN DltwINFO; SI »*LCR; DS»«WOS; END PUTSEQNO* 



02002000 
02003000 
02004000 
02005000 



0164 
0164 
0164 
0164 



02006000 T 0164 



COMMENT TURNONSTQPLIGHT TURNS THE LIGHT "RED" ON THE "CORNER". 
I.Ei* THE PURPOSE OF THIS ROUTINE IS TO INSERT A PER- 



02007000 T 0165 
02008000 T 0165 



CENT SIGN IN COLUMN 73 AS AN END OF CARD SENTINEL FOR 
THE SCANNER? 
STREAM PROCEDURE TURNONSTOPLlGHT CREQ»CORNER ) I VALUE RED, CORNER; 
PRTC3A7) « TURNONSTOPLlGHT 

BEGIN Dll»CORNLR; SIlsLOC CORNER; Sl»»SI-i; OStaCHR end; 



02009000 T 0165 

02010000 T 0165 

020U000 T 0165 

02012000 T 0165 



COMMENT WRITNEW TRANSFERS THE CARD IMAGE TO THE NEWJAPE BUFFER 

AND REPORTS IF THE CARD MIGHT BE CONTROL CARD; 
BOOLEAN STREAM PROCEDURE WRI TNEW (NEW, FCR ) ; VALUE FCR; 
PRTC350) * WRITNEW 

BEGIN SI «• FCR/ IF SC * "*" THEN TALLY «• \l 

di«-new;ds*io wos; 

writnew «■ tally end writnew; 



02014000 T 0166 

02015000 T 0166 

02016000 T 0166 

02017000 T 0166 

02018000 T 0168 

02020000 T 0168 



PRTC351) » MKABS 



COMMENT MKABS CONVERTS A DESCRIPTOR TO AN ABSOLUTE ADDRESS; 
REAL STREAM PROCEDURE MKABS(A); 

BEGIN 01 ♦ A; MKA6S> ♦ DI END MKABS; 



02021000 T 0169 
02022000 T 0169 

02023000 T 0169 



REAL STREAM PROCEDURE CONV (ACCUM#SKP#N); VALUE SKP,N> 



PRTC352) • CONV 



BEGIN 



si* accum; si*si*skp;si«-si+3;di«-loc conv;ds*n OCT 



end; 



02041000 T 0171 

02042000 T 0171 

02043000 T 0172 

02044000 T 0173 



STREAM PROCEDURE 
PRTC353) * MOVECHARACTERS 



MQVECHARACTER5CN*SQRCE#SSKIP*DEST'U5KIP>; 

VALUE N/SSKIP#DSKIP; 
BEGIN 

susorce ; di*dest; 
si*si+sskip; 01* di+dskip ; 
os «• n chr ; 
eno ; 



02045000 T 0174 



02046000 
02047000 
02048000 
02049000 
02050000 
02051000 



0174 
0174 
0175 
0175 
0176 
0177 



PRTC354) * MOVE 



COMMENT MOVECHARACTERS MOVES N cHARA C TERS FROM THE 5SKIP-TH CHAR IN 

"SQRCE" TO THE DSKIP-TH CHAR IN "DEST", ; 

STREAM PROCEDURE MQVE(W)"WORDS FROM" (A )"T0" (B ); VALUE w; 

begin si ♦ a; di ♦ b; os * w wos eno; 



08052000 T 0177 

02053000 T 0177 

02054000 T 0177 

02055000 T 0177 



PRTC355) ■ RESIZE 



STREAM PROCEDURE RESI ZE (F IEL ) i 

BEGIN LOCAL Tj 
SI*FIELJ Dl*LOC T* OS*WDS; 

si*t;di«-fiel;di*di + i; skip g db; ds*io set 
end; 



02056000 T 0179 



02057000 


T 


0179 


02056000 


T 


oieo 


02059000 


T 


oiso 


02060000 


T 


0182 



PRTC356) ■ EQUAL 



COMMENT EQUAL COMPARES COUNT CHARACTERS LOCATED AT A AfoO B FoR 
EQUALITY. THIS ROUTINE IS USED IN THE LOOK-UP OF ALPHA 
QUANTITIES IN THE DIRECTORY; 

BOOLEAN STREAM PROCEDURE EQuALCCOUNT' A»B )J VALUE COUNT' 

BEGIN 

tallyim; sii*a; di *-b; 

IF COUNT SCsDC THEN EUUAL»*TALLY 
END EQUAL; 



08061000 T 0182 

02061500 T 0182 

02062000 T 0182 

02062500 T 0182 

02063000 T 0182 

02063500 T 0183 

02064000 T 0183 

02064500 T 0184 



PROCEDURE READACARDJ FORWARD; 
PRTC357) « READACARD 

PROCEDURE DOLLARCARO; FORWARD; 
PRTC360) * DOLLARCARO 

BOOLEAN PROCEDURE BOOLExP; FQRwAHD; 
PRTC361) ■ BOOLEXP 

PROCEDURE SCANNER; 
PRT(362) ■ SCANNER 

BEGIN 
COMMENT "SCAN" IS THE STREAM PROCEDURE WHICH DOES THE ACTUAL SCANNING, 
IT IS DRIVEN BY A SMALL WORD MQOE PROCEDURE CABLED "SCANNER", 
WHICH CHECKS FOR A QUANTITY BEING BROKEN ACROSS A CARD. "SCAN" 
IS CONTROLLED BY A VARIABLE CALLED "RESULT", "SCAN" ALSO 
INFORMS THE WORLD OF ITS ACTION BY MEANS OF THE SAME VARIABLE, 
HENCE THE VARIABLE "RESULT" IS PaSSED BY BOTH NaME aNQ VaLUE, 
THE MEANING OF "RESULT" AS INPuT IS I 
VALUE MEANING 



3 3S38 



■i]S3::::£:;:::3:: : :ti!:t::::::::::::::: 



DEBLANK AND START TO FETCH THE 

AN IDENTIFIER (INTERRUPTED BY 

HENCE* 
NOT 

BY END-QF' 



INITIAL CODE • 
NEXT QUANTITY, 

1 CONTINUE BUILDING 
END-OF-CARD BREAK), 

2 LAST QUANTITY BUILT WAS SPECIAL CHARACTER, 
EXIT (INTERRUPTION BY ENQ-OF-CARD BREAK IS 
IMPORTANT), 

3 CONTINUE BUILOING A NUMBER (INTERRUPTED 
CARD BREAK). 

4 LAST THING WAS AN ERROR (COUNT EXCEEDEO 
EXIT (INTERRUPTION BY END-QF-CARD BREAK 
IMPORTANT), 

5 GET NEXT CHARACTER AND EXIT. 

6 SCAN A COMMENT, 

7 DEBLANK ONLY, 
THE MEANING OF "RESULT" AS OUTPUT 13 1 



63), 

NOT 



HENCE* 



02065000 

02065500 

02065600 

02066000 

02066500 
02067000 
02967500 
02668000 
02068500 
02069000 
02069500 
02070000 
02070500 
02071000 
02071500 
02972000 
02072500 
02073000 
02073500 

02074000 
02074500 
02075000 
02075500 
02876000 
02076500 
02077000 
02077500 
02978000 
02978500 
02079000 



0185 

0185 

0185 

0185 

0165 
0185 
0185 

0165 
0165 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0185 

0185 
0165 
0185 
0185 
0165 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0185 



VALUE 

»* as* 
1 



2 

3 
"SCAN" PUTS 
DISCARDED 8 

FOR THE RES 
"COUNT" IS 
"SCAN* HAS 
THE VALUE S 
ULATQR" AND 
"COUNT" IS 
CONVENIENT 
"NCR" (NEXT 
NAME AND VA 
"ST1 W AND " 
PASSED TO " 
ARRANGEMENT 



MEANING 

AN IDENTIFI 

A SPECIAL C 

A NUMBER (I 

ALL STUFF S 

LANKS) INTO 

T OF THIS DI 

THE VARIABLE 

PUT INTO THE 

THAT IT CA 

NEEDS TO UP 

PASSED BY BO 

TO HAVE (63- 

CHAKACTER T 

LUE SO THAT 

ST2" ARE TEM 

SCAN" IN ORD 



ER HAS BUILT, 
HARACTER WAS OBTAINED, 
NTEGER) WAS BUILT. 
CANNED (EXCEPT FOR COMMENTS AND 
"ACCUM" (CALLED "ACCUMULATOR" 
&CUSSIQN), 
THAT GIVES THE NUMBER OF CHARACTERS 
"ACCUMULATOR", SINCE "SCAN" NEEOS 
N PUT MORE CHARACTERS INTO THE "ACCOM" 
DATE "COUNT" FOR THE OUTSIDE WORLD' 
TH NAME AND VALUE, IT IS AlSQ 
COUNT), THIS IS CALLED "COMCOUNT", 
BE SCANNED) IS ALSO PASSEO BY 
IT MAY BE UPDATED, 

PQRARY STORAGES WHICH ARE EXPLICITLY 
ER TO OBTAIN THE MOST USEFULL STACK 



PRT(363) 9 SCAN 



STREAM PROCEDURE SCAN( NCR#CQUNTV> ACCUM#COMCOUNT#RESULT'RESULTV* 

CQUNT#ST2»NCRV»SU)J 
VALUE COUNTV* COMCOUNT* RESULTV, ST2, NC«V> ST \i 

BEGIN 

LABEL OEBUANK* NUMBERS* IDBLDR'QNC#K#EXIT»F INI S*L» ERROR, 
COMMENTS^COMMANTS* 

di«*result* di«"di+7; si««ncrv; 

comment setup "01" for a change in "result" and "si" for a look at 
the buffer; 

ch«ci*resultv; x switch on value of result; 

go deblank; x o is initial code, 

go idbldrj x 1 is id code* 

go finis* x 2 is special character code, 

go numbers* x 3 is number code, 

go finis; % 4 is error code, 

go gnc; x 5 is get next character code, 

go commantsj x 6 is comment code. 

x 7 is deblank only code, 
if sc»" " then 

KJ BEGIN 5IIpSI*U IF SC»" " THEN GO K END; 

GO FINIS! 

DEBLANKl 

IF SC«" " THEN 
LI BEGIN SIl«31 + U IF 5C«" " THEN GO L END* 

COMMENT IF WE ARRIVE HERE WE HAVE A NON-BLANK CHARACTER; 

NCRVI*SII 

IF SC * "0" THEN GO NUMBERS; 

IF SC«ALPHA THEN GO IDBLOR; 
COMMENT IF WE ARRIVE HERE WE HAVE A SPECIAL CHARACTER (OR GNC); 
GNCl 

DS1»LIT"2"; TALLYI»U Slt'SJ + U GO EXIT; 
CQMMANTSt 

IF SC/";" THEN 
BEGIN 
COMMENTSI 



02079500 


T 0185 


Q208UQQ0 


T 0185 


02080500 


T 0185 


02081000 ' 


r 0185 


02081500 


r 0185 


02082000 ' 


r 0185 


02082500 ' 


r 0185 


02083000 1 


r 0185 


02083500 i 


r 0185 


02084000 1 


r 0185 


02084500 i 


r 0185 


02*85000 " 


r oi65 


02085500 1 


r 0185 


02086000 ' 


r oi85 


02086500 1 


r 0185 


02087000 1 


r 0185 


02087500 1 


r 0185 


02088000 1 


r 0185 


02088500 1 


r 0185 


02089000 1 


r 0185 


02089500 1 


r 0185 


START OF SEGMENT t 


********** 


02090000 1 


r oooo 


02090500 1 


• oooo 


02091000 ] 


r oooo 


02091500 1 


' oooo 


02092000 1 


r oooo 


02092500 1 


' oooo 


02093000 1 


■ oooo 


02093500 1 


p oooo 


02094000 1 


• oooo 


02094500 1 


• 0001 


02095000 1 


• oooi 


02095500 1 


' 0001 


02096000 1 


• 0002 


02096500 1 


' 0002 


02097000 1 


' 0002 


02097500 1 


r 0002 


02098000 1 


' 0003 


02098500 1 


' 0003 


02099000 1 


0003 


02099500 1 


• 0005 


02100000 1 


* 0005 


02100500 1 


' 0005 


02101000 1 


• 0006 


02101500 1 


• 0008 


02102000 1 


■ 0008 


08102500 1 


0008 


02103000 1 


0009 


0ilQ3500 1 


0009 


02104000 1 


0009 


02104500 T 


0009 


02105000 1 


• oou 


02105500 1 


' oou 


02106000 1 


0012 


02106500 1 


' 0012 



SIIkSI + U 

IF SC > "X" 



COMMENT 



IDBIQR* 



IF SC < "J" 



ERRQR* 

COMMENT 
NUMBERS! 
PRTC364) * *IIST> LABEL* 

EXIT! 



COMMENT 
COMMENT 



COMMENT 
FINIS I 

« *LIST> LABEL* 
COMMENT 



PRTC365) 



then gu comments; 

then qu comments; 
characters between x and semicolon 
mode part uf comment routine; 

end; 
go finis; 



ARE HANDLED BY WORO' 



SIlnSI+1 ELSE JUMP UUT TO EXIT); 



TALLYl-63; DSI«HT "1"; 
COMCOUNT(TALLYI*TALLY+i; 
IF SC«ALPHA THEN 

tally*«tally+i; 
if sc»alpha then 

BEGIN 



di»*dim; dsi*lit "4"; go exit; 

ENO 
ELSE GO EXIT; 

IF WE ARRIVE AT ERROR wE HAVE MORE THAN 63 CHARACTERS 
IN AN IDENTIFIER OR NUMBER; 



TALLYt«63; DSlsLIT "3"; 

or segment descriptor* 
comcountc tally i 'tally* 1' 

if sc <"0"then jump 
go error; 



Out to exit; sn*si*m 



OF CHARACTERS WE 
"ACCUMULATOR". 



ARE 



stimtally; x "sti" contains number 

X GOING TO MOVE INTO THE 
TALLYlsTALLY+CQUNTV; ST2l*TALLY; 

discount; sii«loc $T2; ds»*wds; 
this code updated w count m ; 

DI»«*ACCUMJ SII«SI«3J ds»*3 chr; 

this code places "count" in "accum" as well* 
di!*di+cquntv; x position "dl" past characters already 

x in the "accumulator"* if any, 
sit»NCRv; Dsi*5Ti chr; 

MOVE CHARACTERS INTO "ACCUm"; 



du*ncr; stu»si; su»loc sti; oshwds; 

q« segment descriptor* 

reset "ncr" to location of next character to be scanned* 

end of scan; 



02107000 
02107500 
02108000 
02108500 
02109000 
02109500 
02110000 
02110500 
02111000 
02111500 
02112000 
02112500 
02113000 
02113500 
02114000 
02114500 
08115000 
02115500 
02116000 
02116500 
02117000 
02117500 

02118000 
02118500 
02H9000 
02119500 
02120000 
08120500 
02121000 
02121500 
02122000 
02122500 
02123000 
02123500 
02124000 
02124500 
02125000 
02125500 
02126000 

02126500 
02127000 



0013 
0013 
0014 
0014 
0014 
OOH 
0014 
0015 
0015 
0015 
0017 
0018 
0019 
0019 
0019 
0020 
0021 
0021 
0021 
0021 
0021 
0021 

0022 
0024 
0025 
0025 
0025 
0026 
0026 
0027 
0027 
0027 
0028 
0028 
0029 
0029 
0029 
0029 
0029 

0031 
0031 



L» 



LABEL l;« 

SC An (NCR* COUNT* ACCUMCt 3, 63-CUUNT# RESULT* 

RESULT*COUNT*0*NCR*0); 
IF NCRiLCR THEN 

BEGIN 

READACAROi 

go to l' x go directly to l. do not pass 

x do not collect s200, 
end; 



GO* 



02127500 


T 


0031 


02128000 


T 


0031 


02128500 


T 


0032 


02129000 


T 


0034 


02129500 


T 


0036 


08130000 


T 


0037 


08130500 


T 


0037 


08135500 


T 


0038 


02136000 


T 


0038 


02136500 


T 


0038 



end scanner; 



0213/000 T 0038 
IS 39 LONG* NEXT $EG 



DEFINE WRITELINE « IF SINGLTQG THEN NRI TEC LINE* 15#LINC * 3 ) 

ELSE WRIT EUINECDBL 3*15* L INC* J)** 
PRINTCARO • BEGIN 

editline(lin*fcr#l div 4» l. u6 i 2 3' medium* omi tt i ng ) ; 
if noheading then datime/ writeline; 
end #; 
stream procedure eoltllne<llne»ncr#r#l> symbol'qmit j ; 
prtc366) * eoitline 

VALUE ncr*r*l*symbol*omit; 

BEGIN 

oi «" line; OS »» 16 LIT " n i 

si «* ncr; ds i« 9 wos; 
os t R 8 lit w **; 

OS l« WOS; % SEQUENCE NUMBER* 

dsislit" m ; simloc symbol; siissi+6; 

dsi«2 chr; ds»*lit m "; 

si*loc r; ds*4 dec; ds*lit M t*; 

si*loc l; ds*i dec; 

0S*6 lit w m ; 

OMiT(on»oi-i2; osiss lit* qmit">; 

end editline; 



02181000 
02181250 
02182500 
02182750 
02183000 
02183250 
02183500 

02183750 
02184000 
02184250 
02184500 
02184750 
02185000 
02185250 
02185500 
02185750 
02186000 
02186250 
02186/50 
08187000 



0185 
0185 

0185 
0185 
0165 
0185 
0185 

0185 
0185 
0186 
0188 
0189 

oivo 

0190 
0191 
0192 
0193 
0193 
0194 
0197 



COMMENT COMPARE COMPARES SEQUENCE NUMbE r 5 OF TAPE AND c* R 0* IF 
TAPE IS SMALLER THEN RESULT * ELSE IF CARD IS SMALLER 
RESULT * 1 ELSE RESULT « 2i 
REAL STREAM PROCEDURE COMPARECTAPE*CARD )i VALUE TAPE*CARD; 
PRTC367) * COMPARE 

BEGIN 

si t» tape; di i« card; 

IF 8 SC 2 DC THEN 
BEGIN 

si »» si-e; di »* di-8; tally i* i; 

if 8 sc ■ dc then tally *» 2 

end; 
compare i* tally 
end compare; 



03187250 


T 


0197 


02187500 


T 


0197 


02187750 


T 


0197 


0218B000 


T 


0197 


02186250 


T 


0197 


02188500 


T 


0198 


02188750 


T 


0198 


02189000 


T 


0199 


08189250 


T 


0199 


02189500 


T 


0200 


02189750 


T 


0200 


02190000 


T 


0201 


02190250 


T 


0201 



procedure outputsource; 
prt(370) » outputsource 

BEGIN 

LABEL LCARD#LTAPE*AWAY; 



02190500 T 0202 



switch swi»lcard*lcard*ltape*away#lcard*ltape; 
if seotog then * resewuenc ing , 

BEGIN 



02190750 

02191000 
START OF SIGMENT 
02191250 
02191500 
02191750 



T 0202 
T 0202 
********** 

T 0000 
T 0006 
T 0007 



IF TOTALNQ » -10 OR NEwBASE THEN 

BEGIN 

NEWBA5E I* FALSE; 6TI1«« TQTALNU* «BASENUM 

END 
ELSE GTll»» TOTALNOI* TOTAlNO + ADDVALUE; 

cmangeseq<gtu#lcr); 

end; 
if newtog then 

if writnewclin#fcw) then w«i tec newtape, 10* li n[ * ] >; 

if omitting then if not listatog then go away; 

go swclastusedj; 

LCAROI 

IF LISTER OR LISTPTQG THEN PRINTCARq; 

GO away; 

LTAPEI 

IF LISTER THEN PRINTCARD; 
X GO away; 

AWAY* 

end outputsqurce; 



8 IS 



02192000 

02192250 
02192500 

02192750 
02193000 
02193250 

02193500 
02193750 

02194000 

02194250 

02194500 

02194750 

02195000 

021V5250 
08195500 
02195750 
02196000 
02196250 
02196500 
63 LONG 



0008 
0009 
0010 

oou 

0012 
0014 

0015 
0015 

0016 

0023 

0025 

0027 

0028 

0045 
0045 

0046 
0062 
0062 

0062 
NEXT SEG 



procedure readacard; 

comment readacard reads cards from either the card reader r the 
tape merging as requested and creating a new tape and 
listing if requested, readacard also inserts a percent 
sign as an end of card sentinel in column 73 and sets 
fcr#ncr#lcr#tlcr> anq clcr; 

BEGIN 

PROCEDURE READTAPE; 

PRTC371) • READTAPE 

BEGIN 

label endreadtape, eqft; 

read (tape* 10, tbuffc*}heqftj; 
prtc372) * eoft 
prtc373) » go to solver 

lcr»*mka8s(tbuff19j>; 

go to endreadtape; 

EOFT« 

DEFlNEARRAYC?5)i* M N0;ENDt M & "E"C 1 1 43* 5 J; 

DEFINEARRAY[34JI*"9999" & "9999" C 1 J 25 I 23 ] ; 

TLCR*» MKABSCDEFINEARRAYI34]); 

PUTSEONQ CDEFlNEARRAYC333»TLCR-8); 

TURNONSTOPLIGHTC"*"* TLCR-8); 

ENDREADTAPE* 

ENO READTAPE; 



START 



START 



021V6750 


T 


0202 


02197000 


T 


0202 


02197250 


T 


0202 


02197500 


T 


0202 


02197750 


T 


0202 


02198000 


T 


0202 


02198250 


T 


0202 


08198500 


T 


0202 


OF SEGMENT 


********** 


02201500 


T 


0000 


02201510 


C 


0000 


OF SEGMENT 


********** 


02201750 


P 


0000 


02202000 


P 


0005 


02202010 


C 


0007 


02202020 


c 


0007 


02202030 


c 


0008 


02202040 


c 


0010 


02202050 


c 


0012 


02202060 


c 


oou 


02202070 


c 


0016 


02202060 


c 


0017 


02202250 


T 


0018 



10 



10 IS 24 LONG* NEXT SEG 



PRT(374) * 



PROCEOURE 
5EQCQMPARE 



seqcqmparectlcr,clcr, lib); value lib; boolean lib; 



02202500 T 0000 



REAL TLCR, CL.CR i 
BEGIN 

MEOlUMI*«C M ; * CARD READER, 

IF GT11*CQMPARE(TLCR#CICR)«0 THEN X TAPE HAS LOW SEQUENCE NUMB 
BEGIN 

lcri*tlcr; LASTUSED>«3J 

MEDIUMl»»T "J * TAPE INPUTt 
END 
ELSE BEGIN 

IF GTt * 1 THEN % TAPE AND CARD HAVE SAME SEQ 
BEGIN 

medium|»«p «; % card patches tape. 

keadtape; 

end; 

LCRl*CLCRJ 

lastusedi»2; 

end; 

END OF SEQCOMPAREi 



02202750 
02203000 
02203230 
02203500 
08203750 
02204000 
02204250 
02204500 
02204750 
02205000 
02805250 
02205500 
02808500 
02808750 
02209000 
02209250 

02209500 
02209750 



0000 
0000 
0000 
0000 
0003 
0003 
0005 
0006 
0006 
0009 
0009 
0010 
0011 

oou 

0011 
0012 
0013 
0013 



PRT(375) * EOF 



LABEL CARDQNLY* CARDLAST# TAPELAST, EXIT* FIRSTTIME, 

EOF* USETHESWITCH> 

COMPAR* TLSTVOID* XIT; 
SWITCH USESW ITCH l*CARDONLY»CARDLAST*TAPEL AST* FIRST TIME; 
IF ERR0RC0UNT2ERRMAX THEN ERRC6HJI % ERR LIMIT EXCEEDED 
USETHESWITCHI 

00LLAR2TOG»*FALSEi 

GO TO USESWITCHCLASTUSED3; 

MOVE(1»INFOCLASTUSED«LINKR*LASTUSEO.LINKC]# 

DEFINEARRAYCDEFINEINDEX-23); 
LASTU5ED «•» LASTUSED ♦ W 
NCR Is LCR-i; 

go to xit; 
firsttime* 

READ(CARD»10»CBUFFt*3>; 
FCR|eNCR**(LCRMMKABS(CSUFF[9]))«9; 
MEOlUMl« M C "i 

if examincfcr)***" and lister then printcard; 

putseqno(infoclastseqrqw#last5eouence3#lcr); 

turnonstoplight( m x m #lcr); 

go xit; 
comment we have just initialized card input; 
cardonlyi 

REAoCCARD'10'CBUFFC*}); 
LCR Is MKABSCCBUFFC93); GO EXIT; 
CARDLAST» 

REA0CCARB>1Q#CBUFF[*J)[£QFJ; 



STOP. 



EOF! 



CLCR l» MKA8S(CBUFFC93); 

go compar; 

DEFlNEARRAYC25]»P , 'ND;END. ,, & M E' , Ci*43t5 3; 
DEFlNEARRAVC34JI* ,, 9999 w & M 9999 , «tl*25|23]; 
CLCR ««MKABSCOEFINEARRAYt 343)' 
PUTSEQN0(DEFlNEARRAYC33J#CLCR-8); 



02210000 
02210250 
08210500 
02810750 
022U500 
08211750 
08211800 
02212000 
02212250 
02812500 
02212750 
02213000 
02213250 
02813500 
02213750 
02814000 
08214100 
02814200 
02814250 
02814500 
02814750 
02215000 
02815250 
02815500 
02215750 
02216000 
02216250 

02816500 
02816750 
02817000 
02217250 
02217500 
02217750 
02218000 



0015 
0015 
0015 
0015 
0020 
0023 
0023 
0023 
0025 
0028 
0029 
0031 
0032 
0032 
0033 
0037 
0040 
0041 
0061 
0063 
0064 
0064 
0064 
0065 
0069 
0071 
0072 

0077 
00?9 
0079 
0080 
0082 
0064 
0086 



turnonstqplight< w x w »clcr-b); 

% 

GO COMPARE 
COMMENT THIS RELEASES THE PREVIUUS CARD FROM CARD READER AND 

SETS UP cur; 
TAPEUAST* 

READTAPEJ 
COMMENT THIS RELEASES THE PREVIUUS CARD FROM TAPE AND SETS UP TLCH; 
COMPARt 

SEQC0MPARE(TLCR#CLCR# falsej; 
EXIT! 

NCR »« FCRi* LCR - 9; 
COMMENT SETS UP NCR AND FCR; 

IF EXAMI^CrcR)*"*" ™EN X $-CARD3 DQN"T COUNT, 

IF COMPARE(MKABS(INFOCLAST5EQROW*LASTSE«UENCE3)#LCR)=l THEN 
BEGIN 

flagc610); x sequence error, 
sequenceerror(lin); 

end; 
cardnumber»*c0nvclnfoclastse«r0w#lastseauence-u»5#8); 
if lastused»3 then 

BEGIN 

IF VOIDTAPE THEN GO USETHESW ITcH; 

IF VOIOTCRfO THEN 

if compare(lcr»voldtcr)*0 then go usethesw! tch; 
end; 

IF EXAMIN(FCR> S,, S M THEN 
BEGIN 
IF LlSTPTOG OR PRINTDOLLARtOG THEN PRINTCARD; 

nCr»*nCR*32768; dqllarcard; 
comment oont forget that ncr is not word mode* but char, mode pointer; 
go usetheswitch; 

end; 

IF EXAMIN(FCR>* W " THEN 

IF DQLLAR2T0G»*EXAMINCFCR+32768)*"$" THEN 
BEGIN 

outputsource; 

ncri*ncr+65536; x scan past " $" (character mude ) . 

dollarcard; 

end; 
if voiding then go usetheswitch; 
if voiocr'o then 

IF COMPARE(LCR#VOIDCR)>0 then voidcr»»voidplace»*o 
else go usetheswitch; 
if voidtape then go te5tv0id' 
if vqiotcrxo then 

if compareclcr#voldtcr)>0 then vqidtcri»voidtplace j»0 else 
testvold' if lastused»3 then go usetheswitch; 

cardcountiscardcqunt+i; 

if d0llar2t0g then go usetheswitch; 

putseqnq<lnfqclastseqrqw,lastsequence}#lcr); 

outputsource; 

if omitting then go usetheswitch; 

X 

TURNONSTOPLIGHT CX"# lcr); 
XITl 

end readacard; 



02218250 


T 0088 


02216400 


T 0089 


02218500 


T 0089 


02218750 


T 0093 


02219000 


T 0093 


02219250 


T 0093 


02219500 


T 0093 


02219750 


r 0093 


02224250 


T 0093 


02224500 


T 0094 


02225000 


r 0095 


02225250 


r 0096 


02225500 


r 0097 


01225750 


r 0097 


02226000 ' 


r 0099 


02226250 


r 0104 


02226500 ' 


r 0104 


02226750 ' 


r oto5 


02227000 ' 


r oi06 


02828000 ' 


r 0106 


02228050 ' 


r oho 


02228075 " 


r oho 


02228100 ' 


r oiii 


02228125 ' 


r oii2 


02228150 ' 


r oii3 


02228175 , 


r oii6 


02228250 1 


r oii6 


02228500 1 


r ou8 


02228750 1 


r one 


02229000 1 


r 0136 


02229250 1 


r 0138 


02229500 1 


r 0138 


02229750 1 


r oi4o 


02230000 1 


r 0140 


02230100 1 


r oi4i 


02230250 1 


r 0145 


02130500 1 


" 0145 


02230750 1 


' 0146 


02231000 1 


' 0147 


02131250 1 


' 0147 


08231500 1 


0147 


02231750 1 


' 0149 


02232000 1 


0150 


02832250 l 


' 0153 


02232500 1 


0154 


02233000 T 


0155 


02233500 1 


0156 


02834000 T 


0160 


02234500 T 


0165 


02234600 T 


0166 


02234750 T 


0167 


02235000 T 


0169 


02235250 T 


0170 


02E35500 T 


0171 


02235750 T 


0171 


02837750 T 


0172 


02238000 T 


0173 



9 IS 1?7 LONG* NEXT SEG 



REAL PROCEDURE CONVERT; 
PRT(376) * CONVERT 



STACKCF+3) « T 
STACKCF+4) s N 



BEGIN REAL T; INTEGER N; 



TtO*0/ THJ* 

T* CONV(ACCUMCl3#TCOUNT#N*(COUNT-TCOUNTJMOD 8); 

FOR N* TCQUNT+N STEP 8 UNTIL COUNT- 1 DO 
IF OPTOG THEN 
BEGIN 
DQUBLE(THI#TL0#100Q000Q0.0*0#x>CQNV(ACCUMCl)*N>8)#0# + »«-, 

THI#TLQ)J 
T+THI* 
END ELSE 

t* tx1oooo00oo+ c0nv(accumc1]»n»8); 
convert+t; 
end; 



02148000 T 0202 

02249000 T 0202 
START OF SEGMENT ********** 



11 IS 



021^0000 


T 


0000 


02151000 


T 


0000 


02252000 


T 


0005 


02253000 


T 


ooio 


02254000 


T 


ooio 


02255000 


T 


0010 


02156000 


T 


0015 


02257000 


T 


0016 


02258000 


T 


0016 


02159000 


T 


0016 


02260000 


T 


0024 


02261000 


T 


0024 


28 LONG 


i* 


NEXT SEG 



11 



PRTC377) m FETCH 



REAL STREAM PROCEDURE FETCH(F); VALUE F; 

BEGIN Slt*F; SI 1*31*8* DllslOC FETCH; 0$»»WDS END FETCH; 



02162000 T 0202 
02263000 T 0202 



PROCEDURE DUMPINFO; 
PRTUOO) » DUMPINFO 

BEGIN 

ARBAY ACOt 143; INTEGER JEDEN'OWA; 

STACKCF+2) ■ A 
STACKCF+3) * JEDEN 
STACKCF+4) * DWA 

STREAM PROCEDURE QCTALWORDS(S,D,N); VALUE Hi 
PRTC401) * OCTALWORDS 

BEGIN 

sn*s; dh»d; 

NC2C8(DSI*3 RESET; 3(IF S6 THEN QS»"1 SET ELSE 

051*1 RESET; SKIP 1 SB)); DSI«1 LIT " ");QSI*2 LIT" "); 
END OF OCTALWORDS; 



02164000 T 0205 

02264050 T 0205 

02264100 T 0205 

START OF SEGMENT ********** 



02264400 T OOOl 



02264450 
02264500 
02264550 
02264600 
02264650 



0001 
0003 
0003 
0006 
0009 



12 



STREAM PROCEDURE ALPHAWQROS<S# D* N); VALUE NJ 
PRTC402) * ALPHAWORDS 

BEGIN 



02264700 T 0009 
02264750 T 0009 



SItsS; DII«OJ 

N(2(4(D5I*1 LIT" "i DSl*i CHR); DS» = 1 LIT" ")> DS»*2 LIT" "); 

END OF ALPHAWOROS; 



02264800 T OOIO 
02264850 T 0010 
02264900 T 0U14 



if noheaoing then oatime;writeuinecdbl]><//"elbat">>; 
prtc403) * *format descriptor* 

for jedeni*0 step 6 until 71 00 

BEGIN 

BlANKETU4#A)J OCTALWQRDSULBATC JEOEN }, A, 6 it 

wriieuine[dbum5,ac*3); 

end; 
blanket(14,a); octalworosulbat [72 ] , a, 4 ) ; 
write(linecdbu3#15#ac*3); 

FOR JEDENlaO STEP 1 UNTIL NEXTlNFQ DlV 256 DO 
BEGIN 

WRiTEC LINE tDBL 3 ><//" INFO [", I2,«, * J">> JEOEN); 
PRTU04) * *FORMAT DESCRIPTOR* 

PRTC405) = *LIST» LABEL* OR SEGMENT DESCRIPTOR* 

FOR DWAlsQ STEP 6 UNTIL 251 DO 
BEGIN 

BLANKET (14, A) J ALPHA wQRDSC iNFOC JEDEN, DwA j , A, 6 ) ; 
WRITE{LINE*15,A£*1>; 

BLANKET(J4*A)i octalwordscInfocjeoen*dwaj#a»6); 

WRITECLINEt0BL3»15'At*n; 

end; 
blanketu4,a)| alphaworos( infoc jeoen* 252 3* a, 4)j 
write(line#15#ac*3); 

blanket c 14, a >; octalwqh0$( infoc jeden, 252 ], a, 4 } ; 
write(linecdblj*15#ac*jj; 
end; 

END OF DUMPINFO; 



08264950 T OOU 



13 IS 



14 IS 



6 LONG, 


NEXT SEG 


02265000 


T 


0019 


02265050 


T 


0020 


02265100 


T 


0020 


02265150 


T 


0023 


02265200 


T 


0027 


02265250 


T 


0029 


02265300 


T 


0032 


02265350 


T 


0036 


02265400 


T 


0041 


02265450 


T 


0041 


B LONG, 


NEXT SEG 


02265500 


T 


0048 


02265550 


T 


0049 


02265600 


T 


0049 


02265650 


T 


0052 


08265700 


T 


0057 


02265750 


T 


0060 


02265800 


T 


0065 


02265850 


T 


0067 


02265900 


T 


0071 


02265950 


T 


0075 


02266000 


T 


0079 


02266050 


T 


0083 


02266100 


T 


0083 



12 



12 IS 88 LONG, NEXT SEG 



DEFINE SKAN =» BEGIN 

C0UNTlaRE5ULTt«ACCUMCl]l*0; 

scanner; 

QlffACCUMCli; 

end #; 

COMMENT OOLLARCARO HANDLES THE COMPILER CONTROL CArOS, 
ALL COMPILER- AND USER-DEFINED OPTIONS ARE KEPT 
IN THE ARRAY "OPTIONS". 
EACH OPTION HAS A TWO-WORD ENTRYl 



WORD 

m m mm 
1 



CONTAINS 

ENTRY FROM ACCUMC1J« OQXZZZZ* WHERE 

X IS THE SIZE OF THE ID AND 

ZZZZZ IS THE FIRST FIVE CHARS OF THE ID. 

PUSH-DUWN, 47-BIT STACK CONTAINING THE 



02177000 


T 


0205 


02078000 


T 


0205 


02879000 


T 


0205 


02280000 


T 


0205 


02261000 


T 


0205 


02282000 


T 


0205 


02263000 


T 


0205 


02884000 


T 


0205 


02885000 


T 


0205 


02286000 


T 


0205 


02287000 


T 


0205 


02288000 


T 


0205 


02269000 


T 


0205 


02290000 


T 


0205 


02891000 


T 


0205 


02892000 


T 


0205 



; 



HISTORY OF THE SETTINGS OF THIS OPTION. 

IN "FINDOPTION"* ALL COMPILER-DEFINED OPTIONS ARE USUALLY 

LOCATED BASED UPON A UNIOUE NUMBER ASSIGNED TU EACH, 

FOR ALL USLR-DEFINED OPTIONS* A SEQUENTIAL TABLE SEARCH IS 

INITIATED USING "USEROPINX" AS THE INITIAL INDEX INTO THE 

"OPTIONS" ARRAY, IF THE NUMBER OF COMPILER-DEFINED OPTIONS 

IS CHANGED* THEN "USEROPINX" MUST BE ACCORDINGLY CHANGED, 

THE NUMBER OF USER DEFINED OPTIONS ALLOWED CAN BE 

CHANGED BY CHANGING THE DEFINE "OPARSlZE". 

THE VARIABLE "QPTIQNWQRD" CONTAINS THE CURRENT TRUE 

SETTING OF ALL OF THE CUMPILER-DEF INED OPTIONS, ONE 

OPTION, 



OR FALSE 
BIT PER 



BOOLEAN PROCEDURE F INDQPTI ON( BIT J i VALUE BIT; INTEGER BIT, 
PRTU06) * FINDOPTION 

BEGIN 

LABEL FOUND; 



STACKCF+3) = ID 



real id; 

0PINX|«2xBIT-4; 

WHILE ID»«0PTI0NSC0PINXI»0PINX+23X0 DO 

IF O-ID THEN GO FOUND; 
OPTIQNSCOPINXJ j*q; % NEW USEH-DEFINED OPTION. 
FOUND! 

if opinx +1>qparsize then flagc602) else % too many user optiuns 

f indopt ion i "boolean (opt ions cop i nx* 1j >i 
end findoption; 



START 



02293000 


T 


0205 


02294000 


T 


0205 


02895000 


T 


0205 


02296000 


T 


0205 


02297000 


T 


0205 


02298000 


T 


0205 


02299000 


T 


0205 


02300000 


T 


0205 


02301000 


T 


0205 


02802000 


T 


0205 


02303000 


T 


0205 


02?04000 


T 


0205 


02305000 


T 


0205 


02306000 


T 


0205 


02307000 


T 


0205 


02308000 


T 


0205 


02309000 


T 


0205 


OF SEGMENT 


********* 


02310000 


T 


0000 


02111000 


T 


0000 


02312000 


T 


OOOl 


02113000 


T 


0005 


02114000 


T 


0006 


Q2M5QQ0 


P 


0008 


02316000 


P 


0008 


02317000 


T 


0010 


02118000 


T 


0012 



15 



15 IS 15 LONG, NEXT $EG 



PROCEDURE DOLLARCARO; 
BEGIN 
STREAM PROCEDURE RESTQRESEQNUMCLCR* INFO ); 



VALUE lcr; 



PRTUQ7) n RESTQRESEQNUM 



02119000 

02320000 

02320200 

START OF SEGMENT 



T 0205 
T 0205 

T 0205 
********** 



BEGIN 

di»»lcr; sii»infq; dsi»wds; 
end; 



02320400 T 0000 
02B20600 T 0000 
02120800 T 0000 



16 



PRTU10) ■ SWITCHIT 



PROCEDURE SWITCHITCXBIT); VALUE XBIT; INTEGER XBIT; 

BEGIN 
BOOLEAN B'T; 



STACKCF+2) • B 
STACKCF+3) ■ T 

STACK(F+4) * 5AVEINX 



INTEGER SAVEINX; 

LABEL XM0DE0*XM0DE1#XM0DE2#XM0DE3#XMUDE4# ALONG; 
SWITCH $WI*XMQDE0'XM0DEl'XMQ0E2'XMODE3*XM0OE4; 



02121000 T 0001 

02122000 T 0001 

02323000 T OOOl 

START OF SEGMENT ********** 



02124000 T 0000 



01325000 T 0000 
02126000 T 0000 



17 



PRTU11) * 



XMODEOI 

XMQDEU 

DYNAMIC DIALS 
XMOQE2* 

XMQDE3I 



XM0QE4I 



ALQNGI 



SETTING! *FINDOPTI ON (XBIT); 

GO $WCXM0DE>1]# 

X FIRST OPTION ON CARD* BUT 

OPTIONWORD»aBOOLEANCO)i 

FOR SAVEINXIM STEP 2 UNTIU QPARSUE DO 

XMQDEl»LASTUSEDIsi; X CARO INPUT ONLY* 

X NOT FIRST OPTION AND NOT BEING SET* RESET* 

OPTlONSEOPlNX + UJsREALCTRUE?' 

IF XBIT<US&ROPINX THEN QPTIQNWORD J'QPTIQNWQRO 



skan; 
not set* reset* uk pop, 

option5csaveinx]i*0^ 
ur pqppeo. 

4 TRUtCXBITUll 



GO along; 

X RESET* 

optiqnscopinxujl*realcfalse & settingci 12146 j }j 

if xbit<userqpinx then opti0nwqrdl»qptiqnwuro & falsec xbit t 1]; 

go along; 

X SET. 

saveinxi*qpinx; x remember option we are setting, 

bi*if qa"l»0000" then boqlexp else true; 

0ptiqnscsaveinx*1ji»real(b * settingt 1 146] )* 

if x8jt<userqpinx then optiqnwqro i «qptionwqro 4 b [xbjtuj; 

go along; 

X POP, 

0BTI0NSC0PINX+13»«REALCBM5ETTING,C1I46]); 

IF XBIT<USERQPINX THEN UPT IONWORD I »OPT lONWQRU & 6 UBITJU* 

end switchjt; 



17 IS 



O2327OO0 
02128000 
02329000 

02330000 
02331000 
02332000 
02133000 
02134000 
02339000 

02336000 
02837000 
02336000 
02339000 
02340000 
01341000 
02342000 
02343000 
02352000 
02353000 
02854000 
02355000 
02856000 
02357000 
02350000 
02359000 
59 LONG* 



0005 

OOH 
0013 

0014 
OOH 
0019 
0020 
0021 
0022 

0026 
0027 
0028 

0030 

003a 

0035 
0036 
0036 
0039 
0042 
0046 
0046 
0048 
0051 

0055 
0056 
NEXT SEG 
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LABEL ExlT*AGAl 
LENGTH5*L 
WHATISIT* 
CARDQPTIQ 

SWITCH QPTIQNLE 



N,sKANAGA!N*L£NGtH1*LENGtH2*LENGtH3*LENGtH4, 
tNGTH6,LENGTH7*L£NGTH8,LENGTH9, 



STACKCF+2) 
STACKCF+3) 



VOIDRANGE* 



3*definearrayc03); x 
sresultisResult; x 



INTEGER 
SRESULT 
SCQUNT 

ALPHA 
STAcKCF+4) s VOIORANGE 

DQLLARTOGI»TRUE 

M0VEC10»ACCUMCO 

SCOUNTtsCOUNT; 

xmooeiio; 

putseqnqUnfqcl 

turnonstoplight 
skanagajni 

skan; 
againi 

GO OPTIONLENGTHtMIN(COUNT*lOn* 
LENGTHli 



n*mergeoption; 

ngth i »length1* whatisit* length 3* length4* lengths* 
length6*length7*whatisit*length9*whatisit; 
sresult*scount; 



SAVE INFORMATIUN FOR 
"TABLE" TO RESUME SCAN, 



ASTSEQR0W*LASTSEQUENCE]*LCR); 
C"X**LCR); 



IF Q > "1X0000" 

IF Q » "UOOOO" 

BEGIN SWIT 

IF Q * "1*0000" 



THEN GO EXIT; 
THEN 
CHITCPRINTD0LLAR8IT); 
THEN GO SKANAGAIN; 



GO AGAIN END; 



02360000 
02361000 
02362000 
02963000 
02364000 
02365000 
02365100 



02366000 
02366100 
02S66200 
02167000 
02868000 
02369000 
02970000 
02371000 
02372000 
02973000 
02374000 
02375000 
02976000 
02377000 
02378000 



0001 
OOOJ 
0001 
0001 

oooi 

0003 
0009 



02365200 T 0009 



0009 
0010 
0012 
0014 
0014 
0016 
0017 
0018 
0021 
0022 
0026 
0027 
0028 
0029 
0033 



go whatisit; 

LENGTHS! X NO OPTIONS OF 
LENGTH3I 
IF Q 



THIS LENGTH ARE CURRENTLY IMPLEMENTED. 



SKANAGAIN 
SKANAGAIN 



end; 

end; 



* "3SETOO M THEN 

BEGIN XMOL)t»«3i GO 
IF * "SPOPOO" THEN 

BEGIN XMODEI94; GO 
IF Q s "3NEWQO" THEN 

BEGIN 

switchitcnewbit); 

if q * "4tape0" then go skanagain; 

go again; 

end; 
if q * "3seqoq" then 

begin switchit(seqbit); 
if • "3PRTOO" then 

begin switchitcprtbit); 
if q » "3mcpoo" then 

begin switchit(mcpbit); 
whatisit; 



GO AGAIN END; 
GO AGAIN END/ 
GO AGAIN ENDj 



GO 

LENGTHS 
IF « 



IF Q 



a "4LIST0" THEN 

BEGIN 

SWITCHITCLISTBITJ; 

GO again; 

END* 

* "4V0ID0" THEN 
BEGIN 
IF XMQDE»0 THEN 

BEGIN 
GETVQIDCV0IDRANGE,NCR,LCR,INFQCLAST5EQRUW,LASTSEQUENCE]); 

if voidcr*0 then voidcr l»mkabsc voidplace ) else 
if compare(mkabscvoidranQE)#voidcr}^i then go to exit; 

move u»voiqrange» voidplace); 

go exit; 

end; 
switchitcvoidbit); 
go again; 
end; 

m ^OMITO" THEN 

BEGIN IF NOT D0LLAR2TQG 

SWITCHIT(OMITBIT); 

* "4CARD0" THEN 

BEGIN 

Qi«"<JTAPEO"; X FAKE OUT SWJTCHIT, 

SWITCHIT(MERGEBIT); 

IF XMQOE/2 THEN MERGETOG! «NQT 

0PTI0NSC2*MERGEBIT-1]I* 

RtAL(SETTING & (MERGETOG) £47 t 1 ] ) ; 
IF MERGETOG THEN GO MERGEOPTION; 
CARDOPTIONI 

LASIUSEDt'i; 

go igain; 
end; 

IF Q i "4TAPE0" THEN 
BEGIN 
SWITCHITCMERGEBIT); 



IF Q 



IF Q 



THEN BEGIN PRlNTCARD; 
GO AGAIN END/ 



MERGETOG; 

X CARD 



fiaG(605); end; 



i» 

INVERSE 



OF MERGE. 



02379000 
02380000 
02361000 
02382000 
02363000 
02384000 
02383000 
02966000 
02387000 
02986000 
02389000 
02390000 
02391000 
02392000 
02993000 
02994000 
02395000 
02396000 
02397000 
02398000 
02399000 
02400000 
02401000 
02402000 
02404000 
02405000 
02406000 
02407000 
02406000 
02409000 
02410000 
02410500 
02411000 
02412000 
02413000 
02414000 
02415000 
02418000 
01419000 
02420000 
02421000 

02421100 
02422000 
02423000 
02424000 
02425000 
02425500 
02426000 
02427000 
02428000 
02429000 
02430000 
02431000 
02432000 
02433000 

02434000 
02435000 



0034 
0036 
0036 
0036 
0036 
0040 
0040 
0044 
0044 
0045 
0046 
0047 
0050 
0050 
0050 
005« 
0054 

0058 
0058 
0062 
0062 
0063 
0063 
0064 
0065 
0067 
0067 
0067 
0066 
0069 
0069 
0072 
0075 
0080 
0081 
0082 
0082 
0063 
0083 
0083 
0084 

0103 
0104 

0105 
0105 
0106 
0107 
0110 
0112 
0114 
0116 
0116 
0116 
0120 
0120 

0120 
0121 



IF NOT MER6ETQG THEN GO CARDOPTIONJ 
MERGEQPTIONl 

LASTUSE0»*2; X NEXT CARO IS READ FROM READER, 
IF MAXTLCRsO THEN 
BEGIN 

INTEGER STREAM PROCEDURE FEJ<F#TH VA^UE T; 
PRTC412) m *SEGmENT DESCRIPTOR* 



02436000 
02437000 
02436000 
02439000 
02440000 
01441000 



0122 
0123 
0124 
0124 
0125 
0126 



PRTC413) * FEJ 



START OF SEGMENT ********** 



la 



BEGIN 

sh*f; dii*iqc t; dsi«wds; 

sii*Ti sn«si-i6; dii*loc fej; osibwos; 

ENO FEJJ 



02442000 
02443000 
02444000 

02445000 



0000 

oooo 

0000 
0001 



PRTC414) ■ FIX 



STREAM PROCEDURE FlXCF#T>; VALUE Ti 
BEGIN 

sii»f; si?«iSi-24; dii*loc t; dsi*wds; 
uii«t; di»*di*47; skip 4 db; dsi*2 reset; 
2CDI«*DI*48); DS«*8 lit w oo*oi*o#»; 
end fix; 



02446000 T 0002 



02447000 
02448000 
02449000 
02450000 
02451000 



0002 
0003 
0004 
0005 
0007 



IF GT1»«FEJ(TAPE#0;»1Q TH£N 
BEGIN 

rewind(tape)* fjx<tape,0); 
end; 

MAXTtCRl»GTl+TlCR»*9*MKABS<TBUFFC03); 

read<tape#10,tbuffc*3); x initialize tape input. 
lastuse0i*2; 

eno; 

PRK415) « *SEGmENT DESCRIPTOR* 

GO again; 

end; 
if q * m 4page0" then 

BEGIN 

IF LISTER THEN WR ITECL INeCPAGe J )J 



18 IS 



go skanagain; 

eV~ 



:nd; 
if * "4inf00" then 

begin dumpinfq; go skanagajn end; 
if q * "45eg$0 m then 

begin switchitcsegsbit); go again end; 
if q ■ "4nest0" then 

begin switchitcnestbit); gq again end; 
if • moecko* then 

begin switchit(oeckbit); go again end; 
go whatisit; 

LENGTH5I 

IF ■ "5RESET" THEN 

BEGIN XMQDEI*2; GO SKANAGAIN END; 



02452000 T 


0007 


02453000 T 


0010 


02454000 T 


oou 


02455000 T 


0014 


02456000 T 


0014 


02457000 T 


0017 


02458000 T 


0022 


02459000 T 


0022 


24 LONG* 


NEXT $EG 


02460000 T 


0128 


02461000 T 


0128 


02462000 T 


0128 


02463000 T 


0129 


02464000 T 


0129 


mnm ? 


ms 


02467000 T 


0136 


02468000 T 


0136 


02469000 T 


0140 


02470000 T 


0140 


02471000 T 


0144 


02472000 T 


0144 


02473000 T 


0148 


02474000 T 


0148 


02475000 T 


0152 


01476000 T 


0152 


02477000 T 


0153 


02478000 T 


0153 
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IF Q * , »51ISTP N THEN 

BEGIN SWITCHITCLISTPBIT 
IF Q * "5VQIDT* THEN 
BEGIN 

IF XMQOE«0 THEN 
BEGIN 

GETVOIOCVOIDRANGE* 
IF VOIDTCR«0 THEN 

IF COMPARECMKABS 
MOVECl#VOIDRANGE#V 

GO exit; 
end; 

SrtlTCHIT(VUlDTBlT); 

go again; 

end; 

IF Q b "5CHECK" THEN 

BEGIN SWITCHITCCHECKBIT 
IF 8 « -5LIMIT" THEN 

BEGIN 

SKANi 

IF RESULTS THEN % SHOU 

BEGIN FLAGC600); 
ERRMAXt«CONVCACCUMtl]'0 

go skanagain; 
end; 

IF Q * "5PUNCH" THEN 

BEGIN SWITCHIT(PUNCHBIT 
IF Q ■ "5PURSE" THEN 

BEGIN SWITCHITCPURGEBIT 
IF Q > "iUISTA" THEN 

BEGIN 

SWITCHITCUISTABIT)/ 

go again; 
end; 
if * "5stuff" then 

begin switchitcstuffbit 
whatisit; 



); go again; end; 



NCR#ICR,INFQCLASTSEQRUW,LASTSEQUENCEJ); 
VOIDTCRI'MKABXVOIDTPLACE) ELSE 
CVOIDRANGE)*VQIOTCR)M THEN GO TO EXIT* 
UIDTPLACE); 



}; go again end; 



LD BE NUMBER. 
GO AGAIN END; 
'ACCUMCU.C12S6J); 



j; go again; end; 
j; go again; end; 



go 

LENGTH61 
IF Q 



IF Q 



IF Q 



IF Q 



* "6SEQER" THEN 

BEGIN SWITCHITCSEQERR8I 

» "65INGL" THEN 

BEGIN SWITCHITCSINGIBIT 

* W 65EQXE" THEN 
BEGIN 

SEQXE0T0GI-XMQ0EX2 AND 
IF BUIL0LINE,[45I1] THE 

go skanagain; 
end; 

■ "6DE8UG" THEN 
BEGIN 

SWI?CHIT<OEBUGBlT); 
IF BEBUGTOG THEN 

IF WOPCOJ»0 THEN 
BEGIN 
FILL WQPC*3 H 



)) go again; end; 

t>; go again end; 
>; go again end; 



xmodem 4 or 5eqxeqtqg;xnever reset. 
n buildlinei=true; 



ITH 



START OF 



02479000 


r 0157 


02480000 1 


r 0157 


02481000 1 


r 0161 


02482000 ■ 


r oi6i 


02483000 1 


r 0162 


02484000 1 


r 0163 


02465000 1 


r 0163 


02485500 1 


r 0166 


02486000 1 


r 0169 


0248/000 1 


r 0174 


02488000 1 


r 0175 


02489000 1 


r 0176 


02490000 1 


r 0176 


02493000 1 


r 0177 


02494000 1 


r 0177 


02495000 1 


r 0177 


02496000 1 


r 01/8 


02497000 1 


r oi8i 


02498000 1 


r oi8i 


02499000 1 


r 0182 


02500000 1 


r 0186 


02501000 1 


r 0186 


02502000 1 


r 0190 


02103000 1 


r 0193 


02504000 1 


r 0193 


08505000 1 


r 0193 


02506000 1 


r 0194 


02|07000 1 


r 0198 


02506000 1 


r 0198 


02509000 1 


' 0202 


02510000 1 


r 0202 


02811000 1 


' 0203 


02513000 1 


r 0204 


02514000 1 


r 0206 


02115000 1 


• 0206 


02516000 1 


r 0206 


02517000 1 


• 0210 


02S18000 1 


r 0210 


02519000 1 


' 0211 


02520000 1 


0211 


02121000 1 


' 0215 


02522000 1 


" 0215 


02523000 1 


r 0219 


02524000 1 


■ 0219 


02125000 1 


r 0220 


02526000 1 


' 0223 


02127000 1 


' 0225 


02128000 1 


r 0227 


02529000 1 


0227 


02130000 1 


' 0227 


02131000 1 


0228 


02133000 1 


■ 0229 


02534000 1 


0229 


02535000 1 


' 0231 


02536000 1 


* 0231 


02537000 1 


' 0232 


SEGMENT * 


,*****#*** 
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"QPDC"* 
M * 12* 
"* 22* 

"> 40* 

M * 71* 

"*133# 
"*278* 
",534, 



11* "NOP 

21* "GEO 

39, "5TN 

69, "N£Q 
132, "SnD 
261, "DUP 
533, "LEA 
582* "SSP 
1003, "Scl ",1004 

1O23#1023m023# 
1023,10 



"*0*0* 



"* 
«# 



M *79Q* 



"oesc 

"PHT 
"BBC 

"CQC 

"XJT 

"XCH 

"LBC 

"BBW 

"LBU 
*"SAN "# 
1023M02 
23*1023* 



13* "OEL 
24* "INX 

48* "SUB 



'* 16, "ADD ", 



35, 

64, 



•'LOR M * 
"MUL % 



18* 
37, 

67* 



"HHl "# 
"G7R "* 

"LND "* 



19* "LNG 
38* "BFC 
68* "STD 



* 72* "MKS "#128* "DIV "*130# "COM "*13l* "LQV " 
#134, "CMS ",167, "RTS "*168* "CDC M *260* "LQD " 
*294#"LFC "*322*"ZPl "#384, "IDV ",532* "ISO ", 
#548, "ISN "#549, "USS "#550# "BFW »$S*\, "SQL », 



896, "ROV ", 



806* "IFU -, 

1019, "SCS "# 

3* 1023* 1023* 1023* 1023* 1023* 1023* 1023* 1023, 1023* 

1023, 1023, 1023* 1023* 1023* 1023* 1023* 1023* 1023; 



FIU COPC*] WITH % CHARACTER M00£ MNEMONICS 



0*"EXC M * 2# M BSD M * 



12*"S0A 
22#"TEG 

31#"BlT 

38,"JNS 
45* H JiC 



",t3*"SSA 
"#23#"TGR 

"•3t»"INC 
"*39*"JPW 



",46,"TSA 
52*"BIT "*53*"BIR "*54**'0CV 
59, "FAD "*60,"tRP "*6l,"TRN 
64,0*64*0*64*0*64*0* 



3*"BSS "* 4,"R0A 
"*14#"SFD "*15*"SRD 
"#24#"SRS "#25*"SFS 

"#33#"STC "*34,"§EC 
"*40,"RCA "*4i,"ENS 
"#47#"WRV "*48,"CEQ 
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START 



"# 5*"TRH 



"*6*"SED 
"*18*"SES "*20*"TEQ 

"*28*"TEL "*29*"TLS 

"#35#"CRF "*36»"JNC 

"#42#"BNS ",43*"RSA 

"*49,"CNE "*5Q**CEG 
*55*"ICV "*56*"CEU "*57*"CLS "*58*"FSU ", 
",62,"TR2 "*63*"TRS M *64, 0,64*0, 64*0, 64*0, 



* 7*"TDA ", 
"*21» "TNE " 
M *30*"TAN "* 

"*37,"JFC "* 
"*44,"SCA "* 
M *5l* M CGR ", 



fc.N0*" 

go again; 

END* 
IF Q s "6F0RMA" THEN 

BEGIN SHITCHXTCFQRMAT6IT); G Q AGAIN) ENOJ 

go whatisit; 

LENGTH71 

X IF Q * "7INCUU" THEN 

X BEGIN OOLUARCARDiaSTARTlNCLUDlNG; GO EXIT; END; 

* IF Q • "7XNCLN" THEN 

X BEGIN SWITCHITCNEHINCIBJT); GO AGAIN; END* 

LENQTHSt X NQ OPTIONS OF THIS LENGTH AR£ CURRENTLY IMPLEMENTED. 

LENGTH9| 

IF Q s "9INTRI" THEN 
BEGIN 
INT0G»«XMQ0E*2 AND XMQOE* 4 OR INTQG* X NEVER RESET. 

go skanagain; 

END* 
NHATISIT« 

IF RESULT«3 THEN 
BEGIN 

BASE!3UMI»CONV(ACCUMCn*0*ACCUMCl],C12»63); 
T0TALN0I*-10I 
NEWBA5E»*TRUE) 
GO SKANAGAIN* 

end; 
if result*2 then 

BEGIN 

IF Q ■ "1*0000" THEN 
BEGIN 

skan; 
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02538000 


T 0233 


02139000 


T 0233 


02540000 


T 0233 


02141000 


T 0233 


02|42000 


T 0233 


02|43000 


T 0233 


02544000 


T 0233 


02545000 


T 0233 


0gl46000 


T 0233 


02547000 


T 0233 


02548000 


r 0233 


02549000 


T 0233 


S 128 LONG 


* NEXT SEG 


02550000 


T 0233 


02551000 


T 0234 


OF SEGMENT 


********** 


02552000 


T 0235 


02553000 


r 0235 


02554000 


r 0235 


02555000 


r 0235 


02556000 ' 


r 0235 


02557000 ' 


r 0235 


02558000 ' 


r 0235 


02559000 ' 


r 0235 


02560000 ' 


r 0235 


S 128 LQNGj 


» NEXT SEG 


02563000 1 


r 0235 


02564000 1 


r 0235 


02965000 1 


r 0237 


02566000 1 


r 0237 


02567000 1 


r 0237 


02568000 1 


r 0241 


02969000 1 


' 0241 


02570000 1 


' 0242 


02571000 1 


r 0242 


02572000 1 


r 0242 


02573000 1 


0242 


02574000 1 


' 0242 


02175000 1 


0242 


02576000 7 


0242 


02576500 7 


0242 


02577000 7 


0243 


02577250 7 


0247 


02977500 7 


0249 


02578000 7 


0249 


02579000 7 


0249 


02580000 T 


0249 


02581000 T 


0250 


02582000 T 


0253 


02563000 T 


0254 


02584000 T 


0255 


025850OO T 


0255 


02566000 T 


0255 


02587000 T 


0256 


02588000 T 


0297 


02589000 T 


0257 


02590000 T 


0258 



16 



20 



16 



IF RESULTS THEN 
ADDVALUE»»C0NV(ACCUMCn#0*ACCUMCn,tl2l6J) 

else flagc600); x number expected. 

end; 
go skanagajn; 

end; 
comment did not recognize option; 

if result^l then x not an identifier. 

BEGIN FlAG(60l); GO SKANAGAIN END; 
SWITCHIT(USEROPINX); % USERQPINX MEANS A USER-DEFINED OPTION. 

go again; 

EXIT » 

LlSTERlnDEBUGTOG OR IISTOG OR LISTATQG; 

M0VEClO»DEFINEARRAY£O]#ACCUMtO3); * RESTORE INFORMATION FOR 
COUNTl*SCQUNT; RESUITIbSRESUUT; % "TABLE" TO RESUME SCAN, 

restqreseqnum(lcr*infdcla$tseqrqw*lastsequencej); % for vo io tests 

dollartqgufalse; 

end doll* r card; 



16 IS 



02591000 


T 


0262 


02S92000 


T 


0262 


02593000 


T 


0265 


02994000 


T 


0266 


02595000 


T 


0268 


02596000 


T 


0269 


02597000 


T 


0269 


02998000 


T 


0269 


02999000 


T 


0270 


02600000 


T 


0271 


02601000 


T 


0272 


02602000 


T 


0273 


02602500 


T 


0273 


02602600 


T 


0276 


02602700 


T 


0278 


02602600 


T 


027 9 


02603000 


T 


0281 


02604000 


T 


0262 


2«5 LONG 


if 


NEXT SEG 



COMMENT TABLE JS THE ROUTINE THAT MOST CODE IN THE COMPILER 

USES WHEN IT IS DESIRED TU SCAN ANOTHER LOGICAL QUANTITY. 
THE RESULT RETURNED IS THE CLASS OF THE ITEM DESIRED. 
TABLE MAINTAINS THE VARIABLES I AND NXTELBT AND THE ARRAY 
ELBAT. ELBAT AND I ARE PRINCIPAL VARIABLES USED FOR 
COMUNICATION BETWEEN TABLE AND THE OUTSIDE WORLD. NXTELBT 
IS ALMOST EXCLUSIVELY USED BY TABLE* ALTHOUGH AN OCCASION- 
AL OTHER USE IS MADE IN QROER TO FORGET THAT SOMETHING WAS 
SCANNED. <5EE* FOR EXAMPLE* COMPOUNDT AI L) • FOR FURTHER 
GENERAL OISCUSSION SEE THE DECLARATION OF THESE VARIABLES, 

THE PARAMETER P IS THE ACTUAL INOEX OF THE QUANTITY 
DESIRED (USUALLY I»i*I* 0* 1 + 1). 

THE GENERAL PLAN OF TABLE IS THISI 
I) IF P < NXTELBAT GO ON TO III). 
II) PROCESS ONE QUANTITY. 

A) SCAN. 

B) TEST FOR IDENTIFIER* NUMBER* OR SPECIAL CHARACTER, 

1) IDENTIFIER • LOOKUP IN DIRECTORY AND PROCESS 

IN SPECIAL MANNER IF COMMENT OR DEFINED ID. 

2) NUMBER • PROCESS INTEGER PART* FRACTIONAL PART* 

AND EXPONENT PART, 

3) TEST IF SPECIAL CHARACTER REQUIRES SPECIAL 

PROCESSING - OTHERWISE GET ELBAT WORD FROM 

SPECIAL, 

C) LOAD ELBAT AND INCREMENT NXTELBT, 

D) IF ELBAT IS FULL ADJUST ELBAT* NXTELBT* I* AND P, 

E) GO BACK TO I), 

III) RETURN WITH CLASS OF ELBATCP], 
FURTHER DETAILS ARE GIVEN IN BODY OF TABLE, 



PRTC416) ■ TABLE 



INTEGER PROCEDURE TABLE(P); VALUE P; INTEGER P> 



BEGIN 
LABEL 



PERCENT, SPEC I ALCHAR, COMPLETE, COLON* DOT, ATS I GN, QUOTE, 



02605000 
02606000 
02607000 
02606000 
02609000 
02610000 
02611000 
02612000 
02613000 
02614000 
02615000 
02616000 
02617000 
02618000 
02619000 
02620000 
02621000 
02622000 
02623000 
02624000 

02625000 
02626000 
02627000 
02628000 
02629000 
02630000 
02631000 
02632000 
02633000 
02634000 
02635000 

02936000 
02637000 



0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 

0205 
0205 
0205 
0205 

0205 
0205 



STRNQXT#MUVEIT#ARGH,FINISHNUMBER> 

SCANAGA I N*FPART*EPART* I PART* I DENT* ROSE* COMPOST* DOLL AR*RTPAREN* 

crosshatch* numberenoi 
switch spec i aush itch i »percent* dollar* dot* ats i gn*colon, quote* 

rtparen*crosshatch; 
switch results* i tch i m dent* spec ialchar*i part; 
while p 2 NXTELBT 
00 BEGIN 

scanagaini 

COUNTl»RESuLTl»ACCUMCM»«Oj SCANNER! 
GO RESULTSWlTCHlRESULTJ' 



START 



ARGHI 
SPECIALCH 

COMMENT 
COMMENT 

COMMENT 
COLON* 

OOTJ 



ATSlGNt 



COMMENT 
QUOTE! 



ELSE 



QlsACC 

ARt 

GTl»«A 

ENDTOG 

OBTAIN 

T»«SPE 

NOTICE 

ELBAT 

IF GT1 

GO SPE 

INCR F 

CHaRAC 

ON TO 

RESULT 



UMCUi FLAGC14D* GO SCANAGAIN* 



SHORTEN TABLE OF 



IF EXAMIN ( 

BEGIN 
RESULTI«2; 



CCUM[iJ,Cl8«6] - Zi 
isGTl * 57 AND ENDTOG* 

ACTUAL CHARACTER FROM ACCUMi 
CIALCGTHGT1[42I<UI3]J; 

COMPRESSION TECHNIQUE USED TO 
WORDS FOR SPECIAL CHARACTERS* 
!*T.INCR * THEN GO COMPLETE* 
CIALSWITCHCGTU; 

IElD OF SPECIAL CHARACTER IS NON-ZERO FUR SPECIAL 
TERS REQUIRING SPECIAL HANDLING, INCR IS SWITCHED 
OBTAIN DISCRIMINATION* 

i*7i SCANNER; COMMENT ELIMINATE BLANKS - CHECKING 

FOR »» IN PLACE OF * * 
NCR) * "** THEN 

resulti»q; scanner; ti*$pecialu3j end; 
go complete; 



IF EXAMINCNCR)>9 
NHI»««NL0I*0; 
C««0; GO FPART* 



OR ENDTOG THEN GO COMPLETE; 



STRNGXTJ 
MQVEITI 



RESULTl*o; SCANNER* X SCAN PAST "P", 

IF CQUNTM7 THEN GO ARGH; % 16 CHARS, « "P", 

IF 0CTI2ECACCUMCU>C*17-C0UNT*C0UNT-1) THEN 

BEGIN QIWACCUMCU; FLAGC521); GO SCANAGaIN END* 

go numberend; 

dot and atsign enter number conversion at correct spot; 

cqunt««o; 

TlalF STREAMTOG THEN 63 

IF REALCSTREAMT0G)>1 THEN 8 ELSE 7i 

DO BEGIN 

RESULTIaS; SCANNER; 

IF COUNT>T THEN 

BEGIN QUACCUMC13; FLAGC520); GO SCANAGAIN END; 

END UNTIL EXAMINCNCR) m i»w»; 

qipaccumcu; result»»5; scanner; cduntiscqunt-i; 

IF COUNT<0 THEN COUNT I »C0UNT + 6ft; 

accum[i]i*q; resulti«4; 

ti*c»«oj 

if count < 8 then 



OF SEGMENT 

02638000 

02639000 

02640000 

02641000 

02642000 

02643000 

02644000 

02645000 

02646000 

02647000 

02648000 

02649000 

02650000 

02651000 

02652000 

02653000 

02654000 

02655000 

02656000 

02657000 

02658000 

02659000 

02660000 

02661000 

02662000 

02663000 

02664000 

02665000 

02666000 

02667000 

02668000 

02680000 

02681000 

02682000 

02683000 

02684000 

02685000 

08686000 

02686500 

02687000 

02689000 

02690000 

02691000 

02692000 

02692500 

02693000 

08694000 

02695000 

02696000 

02697000 

02698000 

02699000 

02700000 

02701000 

02703000 

02704000 



********** 

oooo 

0000 

0000 

0000 

0002 

0007 

0012 

0013 

0014 

0015 

0017 

0019 

0020 

0022 

0023 

0025 

0026 

0026 

0028 

0028 

0028 

0031 

0033 

0033 

0033 

0033 

0034 

0034 

0036 

0038 

0040 

0040 

0043 

0044 

0045 

004 6 

0047 

0048 

0051 

0054 

0055 

0055 

0055 

0055 

0056 

0060 

0060 

0061 

0062 

0064 

0067 

0070 

0073 

0075 

0076 

0077 
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JOS. 
CASE 
THE SECOND CASE 
FOR THE DEFINED ID. 



OIV 262144/ 



mov e char act ersccount* a ccumcu»3#c#8- count); 
t,class»«*strngcon; 

go complete; 
comment crosshatch handles two situations! 

the crosshatch at end of define declarations and 
the crosshatch at end of alpha representing defined 
the two cases are processed olfferently. the first 

MERELY PLACES THE CROSSHATCH In ELBAT. 
CAUSES AN EXIT FROM SCANNING THE ALPHA 
FOR A FULL DISCUSSION SEE DEFlNEGENJ 
CROSSHATCHI 

IF DEFINECTR*Q THEN GO COMPLETE* 

PUTSEQNOCGTULCH); 

TURNONSTOPLlGHT(Q#LCR)J 

IF DEFINEINDEX n THEN GO ARGH; 

LCR'»(GTlt»OEFINEARRAYCOEFlNElNDEXMJ) 

NCR«*GT1 MOD 262144J 

GT2»*0&(TI»DEFINEARRAYC0EFINEINDEX»»DEFINEINDEX-3])C33I18I15 3; 

LASTUSED!*T.C33I15]; 

FOR GTll*l STEP 1 UNTIL GT2 DO 

BEGIN 

STACKHEADC(TI*TAKE(LASTINFO + U)»tl2l303 MOD 125JI* 

take(lastinfo).link; 
l ast i nfo«»( next info! "last info j*t,purpt; 
end; 
go scanagain; 
oollarj comment this code handles control cakqg; 

oollarcard; 
percentj if ncr * fcr then readacard; 

go scanagain; 
comment most percent signs acting as end of card sentinels get to 
percent. percent reads the next card and starts over, a 
side effect is that all characters on a card are ignored 
after a free percent sign (one not imbedded in a string or 

COMMENT); 
COMMENT MIGHT BE FUNNY COMMA • HANDLE HERE; 
RTPARENt RESULTI»7; SCANNER/ 

IF EXAMINCNCR) * WM " THEN 
BEGIN 

resulti«o; scanner; 

DO BEGIN 

RESULTlsj; SCANNER 

END UNTIL EXAMIN(NCR) ■ """J 

resulting-; scanner; 

resultw; scanner* 

if examincncr) * "(" 

resulting; scanner; 

ti«speciale243 

end; 
resulth8j go complete; 
iparti tcounti»o; ci»cqnvert; 
x resultt«7j scanner; x 06blank, 
x if definectr*0 then 

x if cc*3 or c»4) and examin(ncr>«""" then xoctal or hex string, 
x begin integer siz; 
x resulti*5; scanner; x skip QUOTE, 

X COUNTI«0* 



THEN GO ARGH; 

qipaccumch; 



027QSQOQ 
02*05100 
02f05200 
02707000 
02706000 
02709000 
02*10000 
02*11000 
02712000 
02713000 
02*14000 
02715000 
02716000 
02*17000 

02718000 
02*19000 
02720000 
02721000 
02722000 
02723000 
02723500 
02724000 
02725000 
02726000 
02727000 
02728000 
02729000 
02730000 
02*31000 
OB737000 
02738000 
02739000 
02740000 
02741000 
02742000 
02*43000 
02744000 
02745000 
02746000 
02*47000 
02748000 
02749000 
02750000 
02751000 
02752000 
02753000 
0275«000 
02755000 
02756000 
02757000 
02758000 
02759000 
02760000 
02*61000 
02762000 
02*63000 
02164000 



0078 
0080 
0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0063 

0084 

0085 

0086 

0087 

0090 

0091 

0094 

0095 

0098 

0098 

0101 

0102 

0105 

0107 

0107 

0108 

0108 

0110 

01U 

0111 

0111 

QUI 

0111 

0111 

0111 
0113 
0115 
0115 
0116 
0117 
0117 
0120 
0121 
0123 
0125 
0127 
0127 
0128 
0129 
0131 
0131 
0131 
0131 
0131 
0131 



X DO BEGIN 

x HfcsuiT»95>; scanner; 

X IF COUNT > SUJM8 DIV C THEN % > 1 WORD LONG. 

X BEGIN ERRC520); GO SCANAGAIN ENOJ 

X END UNTIL EX AM INCNCR )* MWM J 

X QI*ACCUMC13; RE5ULTI"5; SCANNER; COUNT* »CUUNT-i ; 

X IF C*3 THEN X OCTAL STRING. 

% IF UCTUE(ACCUMCn,ACCUMU],16-C0UNT#CUUNT? THEN 

X FLAG(521) X NUN OCTAL CHARACTER IN STRING. 

X ELSE ELSE IF HEXIZEC ACCUMC 1 3 > ACCUMC4J, 12-C0UNT, COUNT } THEN 

X FLAGC52U; X NON CHARACTER IN HEX STRING, 

X IF COUNT < SI2 THEN 

X BEGIN 

X C«*ACCUMC4]; GO FINISHNUMBER; 

x end; 

x T,iNCRi«couNT»»e; t,class»«string; 

X MQVECHARACTERS(8,ACCUMC<U,Q,ACCUMtn#3); 

X GO COMPLETE; 

X END OCTAL OR HEX STRING* 

IF OPTOG THEN 

BEGIN NHH-THi; NLOJsTLO; END; 
IF EXAMIN(NCR)» H ." THEN 
BEGIN 
RESULTI*>0; SCANNER' 

c«m.qx c; 
FPARTI tcountiscqunt; 

IF EXAMINCNGRJS9 THEN 
BEGIN 

RESULTjaQi SCANNER; 
IF DPT0G THEN 
BEGIN 
DOUBLE ( CONVERT* TLO# TEN [(COUNT-T COUNT JMOD 12]* 

0#/#I*#THI*TLOJ; 
FOR Tl"l2 STEP 12 UNTIL COUNT - TCUUNT DO 
DOUBLE <THI,TLO»TEN[ 12 ] #0,/> » =,THI,TLQ); 
DOUBLE (THI#TLO#NHI#NLO#+# ls,NHl,NLO); 
CIpNHI 

END 
ELSE C I «TENCT COUNT-COUNT 3 xCONVERT + C; 
END 

end; 

RESULTt*7J SCANNER; 
IF EXAMIN<NCR)»"8" THEN 
BEGIN 

result»*0; scanner' 
epartj tcounti*count; 
ci*c*i.o; 
resulti«7; scanner; 

IF T* ! 'EXAMtN(NCR)>9 THEN 
BEGIN 

resultuo; scanner; 

tcountmcount; 

end; 
resulti»0; scanner! 
q»*accumcu; 

IF GTllsTlsdF T«"- H THEN 
T>69 THEN FLAGC269J 



•CONVERT ELSE CUNVERT}<«46 OR 



02765000 
02766000 
02767000 
02768000 
02f69000 
02P7000Q 
02771000 
02772000 
02773000 
02774000 

02775000 
02776000 
02777000 
02776000 

02779000 

02780000 

02781000 

02782000 

02783000 

02784000 

02785000 

02786000 

02787000 

02788000 

02789000 

02790000 

02791000 

02792000 

02793000 

02794000 

02795000 

02196000 

02797000 

02798000 

02799000 

02800000 

02601000 

02802000 

02803000 

02804000 

02805000 

02806000 

02807000 

02808000 

02809000 

02810000 

02811000 

02812000 

02813000 

02815000 

02816000 

02817000 

02818000 

02820000 

02822000 

02823000 

02824000 



0131 
0131 
0131 
0131 
0131 
0131 
0131 
0131 
0131 
0131 
0131 
0131 
0131 
0131 

0131 

0131 

0131 
0131 
0131 
0131 
0132 
0134 
0135 
0136 
0137 
0138 
0139 
0141 
0142 
0143 
0143 
0144 
0147 
0148 
0153 
0158 
0160 
0160 
0161 

0164 
0164 
0164 
0166 
0167 
0168 
0169 
0170 
0172 
0173 
0175 
0176 
01?7 
0178 
0178 
0179 
0180 
0185 



ELSE BEGIN 

TI*TENtT3; 

IF A83(0&Ct42»3l63&C[l»2»n+0&TC^2l JI6HTti«2«l J 
♦ 12} >63 THEN FLAGC269) 
ELSE IF OPTOG THEN 

IF GTKO THEN 
BEGIN 

GTl»*-GTi; 

DQUBLECNHI,NL0*TEN[GT1 MUD 12 3 >Q» /> l*>NHl#NLO }; 
FOR GT2I*12 STEP 12 UNTIL GT1 DO 

0QUBLECNHI#NL0'TENC12]#0#/#I**NHI#NL0); 
END 

ELSE BEGIN 

DOUBLE(NHI,NLO*TENCGT1 MOD 12] * 0* x# »«, NHI# NLO )f 
FOR GT2^12 STEP 12 UNTIL GT1 UO 

DOUBLED NHl#NLO#TENCi23#0#K#H#NHI#NLO>* 
END 

ci»cxt; 

END* 



ELSE 

end; 



RESULTU3; 



; T.ADDRESSI«C END 



ROSE IS ENTEREOt 
IDENTIFIER WHICH 
OF THE ELBATWORD 
ALLOWS REFERENCE 



NUMBERENDI 

QJ=ACCUM[lj; 

finishnumber» 
T«*o; 

IF C.Cl*37]*0 THEN 

BE6IN T.CLASSiaLlTNO 
ELSE T.CLAi?S*»NQNLITNQ i 

go completl; 
comment the code between ident and compost does a lookup in info, 

IF QUANTITY IS NOT FOUNO THE ElBAT WORD EXPECTS TO BE 
ZERO, THE SCRAMBLE FOR APPROPRIATE STACK IS FIRST THING 
TO BE DONE* THEN THE LOOP BETWEEN COMPOST AND 

THE LAST THING DONE FOR ANY 
IS FOUNO IS To STUFF THE LOCATION 
IN INFO INTO THE LINK FIELD* THIS 
BACK TU INFO FOR ADDITIONAL UATA> 
SHOULD THIS BE REQUIRED. i 

IDENTI Tl»STACKHEADtSCRAM|s(Ql»ACCUMCl3)M00 1253; 

rose» gtiipt.linkr; 

IF(fiT2l»T.LINKC)*GTl* THEN 

BEGIN Tl»0; GO COMPLETE END; 
IF T ■ INFQCGTt. GT23 THEN BEGIN 
Tl* O; GO TO COMPLETE END; 
Tt»JNFOCGTl*GT23; 

IF INF0CGT1#GT2 + 1H0[UU113 * Q THEN GO ROSE* 
IF COUNT i 5 THEN GO COMPOST ; 

IF NOT EQUAL(COUNT*5,ACCUMC23#INFOCGT1#GT2+23UHEN GO ROSE; 
COMPOST I TtaUGTlC35U3l5J&GT2C40UQ»8J; 
COMMENT CHECK HERE FOR COMMENTS ANO DEFINED IDS; 
IF NOT ENDTOG THEN 
BEGIN 

IF GTIMT, CLASS * CQMMENTV THEN 
BEGIN 

while examincncr) x «|« 00 

begin result***; c0unti*0; 
resulti«o)scanner;go scanagain 

END 



SCANNER END; 



02825000 


T 0186 


02826000 


T 0189 


02827000 


T 0190 


02828000 


T 0195 


02829000 


r 0197 


02830000 


r 0198 


02831000 


r 0199 


02832000 ' 


r 0200 


02833000 ' 


r osol 


02834000 ' 


r 0205 


02135000 ' 


r 0206 


02836000 ' 


r 02u 


02837000 ' 


r 02ii 


02838000 1 


r 0212 


02839000 " 


r 0215 


02840000 1 


r 0217 


02841000 ' 


r 0222 


02842000 1 


r 0222 


02843000 1 


r 0224 


02844000 1 


r 0224 


02845000 1 


r 0224 


02846000 1 


r 0225 


02847000 1 


r 0226 


02848000 1 


r 0227 


02849000 1 


r 0227 


02850000 1 


r 0229 


01851000 1 


r 0233 


02852000 1 


r 0235 


02853000 1 


• 0236 


02854000 1 


0236 


02855000 1 


' 0236 


02859000 1 


' 0236 


02860000 1 


0236 


02861000 1 


0236 


0286200Q 1 


' 0236 


02863000 1 


0236 


02864000 1 


" 0236 


02865000 1 


0236 


02875000 1 


0239 


02876000 1 


' 0241 


02877000 1 


0243 


02877010 C 


0245 


02877020 C 


0247 


02878000 1 


0248 


02879000 T 


0250 


02880000 1 


' 0254 


02881000 T 


0255 


02882000 T 


0260 


02883000 T 


0262 


02884000 T 


0262 


02885000 T 


0263 


02886000 T 


0263 


02887000 T 


0265 


02888000 T 


0266 


02889000 1 


0268 


02890000 T 


0270 


02891000 T 


0272 



end; 

IF STOPQEFJNE T 
IF GT1 H OEFINE 
COMMENT SETUP FOR OEFIN 
IF T.ADDRESSXO 
IF DEFINEINDEX 

BEGIN FLAG 
DEFINEARRAYCOEF 

LASTUSEO«»GIT(T 
DEFINEARRAYCDEF 

LCR»«CnCR**MKA8 
PUTSEQNQ(GT4,LC 
TURNONSTOPclGHT 

go percent; 
complete* 

ELBATCNXTELBT3J 

STOPOEFlNEl»FAL 

IF NXTELBT$«NXT 

I* NOT MACROI 

BEGIN 

COMMENT ELBAT IS FULLI 

MQVEUO,EL 

H=I-65J P 

END 

END* *»• ** po 

IF TABLE»»EL8AT[P3,C 

BEGIN 
COMMENT SPECIAL HANDLlN 
C»*INFQ[0>ELBAT 
ELBATCP3.CLASSI 

end; 
stopdefinei«false; 
end table ; 



HEN GO COMPLETE; 

DID THEN GO CQMPLETEJ 

ED IDS - SEE DEFINEGEN FOR MOKE DETAILS; 

THEN T**FIXDEFlNEINFO(T); 

■ 24 THEN 

(I39);gq argh end; 

ine index j i uastused&t. address c 181 331 15ji 

); 

INEINDEX*2JIs262144xLCR+NCR; 
S<0EFINEARRAYCDEFINEINDEX*U)) + 1; 

R); 

<"X",LCR?; DEFINE INDEX I sDEF INE I NOEX + 3; 



*t; 

se; comment allow defines again; 

elbt+1 > 74 then 

D THEN 

adjust it; 

BATC653, ELBAT); 
»aP-65; NXTELBT«»lO; 

LASS * CUMMENTV THEN 

G OF CONSTANTS FOR SAKE OF FOR STATEMENTS; 

CP3 , ADDRESS}; 

»TABLEI»N0NLITNQ 



u» 



COMMENT ALLOW OEFINE; 



02892000 
02893000 
02894000 
02895000 
02896000 
02898000 
02899000 
02900000 
02901000 
02902000 
02903000 

02904000 
02905000 
02906000 
02909000 
02910000 
02911000 
02912000 
02913000 
02914000 
0291S000 
02916000 
02917000 
02918000 
02919000 
02920000 
02921000 
02922000 
02923000 
02924000 
02925000 
02926000 
02927000 
21 IS 321 LONG. 






0272 
0272 
0273 
0274 
0274 
0277 
0278 
0280 
0282 
0283 
0286 

0290 
0291 

0293 
0295 
0295 
0296 
0297 
0298 
0299 
0300 
0300 
0302 
0305 
0305 
0305 
0309 
0309 
0309 
0312 
0313 
0315 
0315 
NEXT 5EG 



PRTU17) « BOOLPRIM 
PRTU20) * BOOLCOMP 
PRTC421) * NEXT 



STACKCF+3) «* T 



BOOLEAN PROCEDURE BOOLPRIM; 



forward; 



procedure boolcompcbj; boolean b; forward; 
integer procedure next; 

BEGIN 
LABEL EXIT; 

integer t; 

define error • begin flag(6q3)j go exit end*; 

skan; 

if result*3 then error; x numbers not alloweo. 

if result*2 then x special character. 

BEGIN 

Tt»IF Q»"1#Q000" OH Q*«lX0000 n THEN 20 X FAKE OUT BOULEXP, 

ELSE C(Tl»Q,[18l6J-2) & TC42»4l»3J); 
IF T«U OR T«19 OR T*20 THEN BATMAN l = SPECIAL E T 3 X (»)#0R ; 



02955000 T 0205 

02955500 T 0205 

02956000 T 0205 

02956500 T 0205 

02957000 T 0205 

START OF SEGMENT ********** 

08957500 T 0000 

08958000 T 0000 

02958500 T 0000 

01959000 T 0003 

02959500 T 0006 

02960000 T 0007 

02960500 T 0007 

02961000 T 0010 

08961500 T 0013 



22 



COMMENT 



ELSE 
EXIT« 

END 



ELSE FLAGC603)/ 
GO EXIT 

END SPECIAL CHARACTERS* 
FOR BOOLEAN OPERATORS, THEN OPTIONS; 
IF Q»"3NQTQO" THEN NQTQP 
Q* M 3ANOOO M THEN ANDOP 
Q*"2QR000" THEN OROP 
Q**3EQV00" THEN EQVQP 



LOOK 

T«* 

ELSE 
ELSE 
ELSE 
ELSE 

IF T*0 



IF 
IF 
IF 

o; 

THEN 



BATMAN, CLASSl»T 
BATMANlM * B00IDC2I7] * REAL CFINDOPT ION CD H 1 II ] i * OPTION 

NEXT * »M YCL ASS I »BATMAN f CLASS; 

next; 



22 IS 



02962000 


T 


0017 


02962500 


T 


0U21 


02163000 


T 


0022 


02963500 


T 


0022 


02964000 


T 


0022 


02964500 


T 


0023 


02965000 


T 


0025 


02*65500 


T 


0027 


02966000 


T 


0029 


02966500 


T 


0031 


02967000 


T 


0032 


02967500 


T 


0042 


02968000 


T 


0043 


02966500 


T 


0044 


48 LONC 


i# 


NEXT S£G 



BOOLEAN PROCEDURE BQOLEXP; 
BEGIN 
BOOLEAN B; 



STACKCF+3) = B 



02969000 

02969500 

02970000 

START OF SEGMENT 



BlaBOOLPRlM; 

WHILE MYCLASSfcEQVQP 

BOOLEXPMB 

END BOOLEXP; 



AND MYCLASSSANOOP 00 BQOLCGMPCB); 



T 0205 
T 0205 

T 0205 

********** 



23 



23 IS 



02970500 T 
02971000 T 
02971500 T 
02972000 T 
8 LONG, 



0000 
0001 
0004 
0004 
NEXT SEG 



STACKCF4-3) 
STACKCF+4) 



* B 
■ KNOT 



BOOLEAN PRQCEDUHE BOOLPRIM; 
BEGIN 
BOOLEAN B*KNOTi 



DEFINE SKIPIT » MYCLASSI *N&XT #i 
IF KNQT»*CN£XT«NOTOP) THEN SKIPIT; 
IF MYCLASS«LEFTPAREN THEN 

BEGIN 

Bl*BOOLEXP; 

IF MYCLAS5/RTPAREN THEN FLAGC604); 

END 
ELSE IF MYCLASS*BOQID THEN FLAGC601) 
ELSE BlaBATMAN<0; 

IF KNOT THEN BI'NQT Bt SKIPIT; 

B0OLPRIMI«B 

END BOOLPRIM; 



02972500 T 0205 

02973000 T 0205 

02973500 T 0205 

START OF StGMENT ********** 



24 



24 IS 



02974000 


T 


0000 


02974500 


T 


0000 


02975000 


T 


0003 


0B975500 


T 


0003 


02976000 


T 


0004 


02976500 


T 


0005 


02977000 


T 


0007 


02977500 


T 


0007 


02976000 


T 


0009 


02978500 


T 


0011 


02979000 


T 


0014 


02979500 


T 


0014 


18 LONG, 


NEXT SEG 



PROCEDURE BQQLCQMPCe); BOOLEAN B'» 



02980000 T 0205 



STACKCF+2) * OPCLASS 
STACKCF+3) * T 



BEGIN 

REAL OPCLASS; 



boolean m 
opclassi*myclass; 

TlsBOOLPRIMi 

WHILE QPCLA5S<MYCLASS DO BOQLCQMP(T); 

Bl« IF OPCLASSsANDOP THEN <B AND T) 

ELSE IF OPCLASSsQROP THEN (B OR T) 
ELSE (B E«V T); 

END BOOLCOMP; 



02980500 T 0205 

02*81000 T 0205 

START OF SEGMENT ********** 

02981500 T 0000 



02982000 


T 


0000 


02982500 


T 


0000 


02983000 


T 


oooi 


02983500 


T 


0004 


02984000 


T 


0006 


02984500 


T 


0008 


02985000 


T 


ooii 



25 



25 IS 14 LONG, NEXT SEG 



COMMENT ######################*###*############## ###*#*####«#######*#**## 

FORWARD DECLARATIONS 
#*##*«####**#*###*##****####*#*#»##****#*#*«##*######*» «######* *###*###; 
% 
PROCEDURE AEXPi FORWARD* 
PRTC422) * AEXP 

PROCEDURE ARlTHSEC/ FORWARD/ 
PRT(423) » ARITHSEC 

PROCEDURE SlMPARlTHi FORWARD; 
PRT<424) * SIMPARITH 

PROCEDURE ARlTHCOMpJ FORWARD/ 
PRT(425) n ARITHCOMP 

procedure primary; forward; 

PRTC426) i PRIMARY 

DEFINE BEXP » aexp#; 

integer procedure exprss; forward/ 
prt(427) ■ exprss 

procedure polishercexpect); value expect; real expect/ forward; 
prtu30) * polisher 

procedure inline; forward; 
prtu31) * inline 

procedure subhandcfromj; value from; boolean from; forward; 
prtu32) ■ subhand 

procedure iqstmt; forward; 

PRT(ft33) » IOSTMT 

INTEGER PROCEDURE jFEXPi FORWARD; 
PRT(434) s IFEXP 

procedure parse; fqrward; 
prtu35) • parse 

procedure dot; forward/ 

PRTU36) » DOT 

PROCEDURE IFCLAUSt; FORWARD; 
PRT(437) » IFCLAUSE 

INTEGER PRQCEOURE GfcTC 5 YLLABLE ) i VALUE SYLLABLE; REAL SYLLABLE; FORWARD; 
PRTC440) * GET 

integer procedure gnat(l); value u real li forward; 
prtc441) « gnat 

procedure pana; forwaro; 



02985500 T 0205 

02986000 T 0205 

02986500 T 0205 

02987000 T 0205 

02987500 T 0205 

03001000 T 0205 

0S002000 T 0205 

03003000 T 0205 

03004000 T 0205 

03005000 T 0205 

03006000 T 0205 

03007000 T 0205 

03009000 T 0205 

03010000 T 0205 

03011000 T 0205 

03012000 T 0205 

03013000 T 0205 

03014000 T 0205 

03015000 T 0205 

03018000 T 0205 

03019000 T 0205 

03020000 T 0205 

03021000 T 0205 



PRTU42) * PANA 

PROCEDURE IFSTMT; FORWARD; 
PRTC443) * IFSTMT 

PROCEDURE GOGENC LABELS AT, BR ANCHTYPE); 
PRTU44) = GOGEN 

VALUE labelbat#branchtype; 
real labelbat^branchtype; forward; 
boolean procedure simpgq; forward; 
prt(445) * simpgo 

procedure stmt; forward; 

PRT(446) * STMT 

PROCEDURE EMITCSYLLABLE); VALUE SYLLABLE; REAL SYLLABLE; FORWARD; 
PRTC447) » EMIT 

PROCEDURE PRQCSTMT(FROM); VALUE FROM; BOOLEAN FROM; FORWARD; 
PRTU50) m PROCSTMT 

procedure strmprocstmt; forward' 
prt(451) ■ strmprocstmt 

procedure constantclean; forward; 
prtu52) * constantclean 

procedure scatterelbat; forward; 
prtc453) ■* scatterelbat 

procedure emitb<branch'From, towards); value branch»from, towards; 
prtu54) « emits 

integer branch*from»towaros; forward; 

proceoure variablecfrom); integer from; forward; 
prtc455) * variable 

procedure impfun; forward; 

PRTC456) x IMPFUN 

procedure rightcdj value l; integer l; forward; 
prtc457) * right 

procedure streamstmt; forward; 
prt(460) « streamstmt 

procedure segmentstartcb);value b;boolean b;forward; 
prtu61) m segmentstart 

PROCEDURE SEGMENT(SIZE*FR); VALUE SIZE^FR; INTEGER SUE#FRi FORWARD/ 
PRTC462) » SEGMENT 



Integer procedure bae; forward; 

PRTC463) ■ BAE 

PROCEOURE PROGUESCBLDRCA#B,C#D);VALUE A#B,C#D; 
PRTC464) b PROGDESCBLOR 

INTEGER A, CO; BOOLEAN BJ FORWARD; 
PROCEDURE BANA; FORWARD; 
PRTC465) • BANA 

PROCEDURE EMITNUMCA); VALUE A* «£AL At FORWARD; 
PRT(466) * EMITNUM 

PROCEDURE EMITD(A#B#T); VALUE A»B#t; INTEGER A,B,Jt FORWARD; 

prtc467) « emito 

integer procedure getspacecs#l)j value s»h 
prt(470) « getspaci 

integer li boolean s; forward; 
procedure forstmt; forward; 
prtc471) * forstmt 

Real procedure takeundex); value inoex; integer index* forward; 
procedure e; forward; 



03022000 


T 


0205 


03023000 


T 


0205 


03024000 
03025000 
09026000 


T 
T 
T 


0205 
0205 
0205 


03027000 


T 


0205 


03028000 


T 


0205 


03029000 


T 


0205 


03030000 


T 


0205 


03034000 


T 


0205 


03035000 


T 


0205 


03036000 


T 


0205 


03037000 
03038000 


T 
T 


0205 
0205 


03039000 


T 


0205 


03039500 


T 


0205 


03040000 


T 


0205 


03041000 


T 


0205 


03042000 


T 


0205 


03043000 
03044000 
03045000 
03046000 


T 
T 

T 
T 


0205 
0205 
0205 
0205 


03047000 


T 


0205 


03047JO0 
03048000 


T 
T 


0205 
0205 


03049000 


T 


0205 


03050000 


T 


0205 


O3O51OO0 


T 


0205 


03051001 
03052000 


T 
T 


0205 
0205 


03053000 
03054000 


T 
T 


0205 
0205 



PRTC472) » E 

PROCEDURE EnTRY(TYPE)J VALUE TYpE;REAL TYPE* FQRWARD; 

prt(473) * entry 

procedure putnbumpcpl); value pu real pu forward; 
prtu74) * putnbump 

procedure jumpchknxi forward; 
prt(475) * jumpchknx 

procedure jumpchkx; forward; 
prt(476) * jumpchkx 

procedure dblstmt; forward; 
prt(477) * dblstmt 

procedure blqckcs); value s; boolean s; forward; 
prtc500) * block 

PROCEDURE PURGECSTQPPER^VALUE STOPPER;REAL 5TQPPER;F0KkARQ; 

prt(501) * purge 

procedure enter(typev); 
prt(502) * enter 

value typev; 

real typev;forward; 



COMMENT THIS SECTION CONTAINS THE EMITTERS. THEY ARE THE AGENTS WHICH 

ACTUALLY PRODUCE CODE AND DEBUGING OUTPUT/ 
COMMENT EMITL EMITS A LIT CALL; 
PROCEDURE EMITL(LITERAL); VALUE LITERAL* INTEGER LITERAL; 



PRTC503) * EMITL 



EMITC0&LITERALC36I38U0 3); 



03055000 


T 


0205 


03057000 


T 


0205 


03056000 


T 


0205 


0305V000 


T 


0205 


OJ060000 


T 


0205 


03067000 


T 


0205 


03068000 


T 


0205 


0306V000 


T 


0205 


03070000 
03071000 
03072000 
03073000 
03074000 
03075000 
04000000 
04001000 
04002000 
04003000 


T 
T 
T 

T 
T 
T 
T 
T 
T 
T 


0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 


04004000 


T 


0205 



PRTC504) « EMJTO 



COMMENT EMITO EMIT AN OPERATOR; 

PROCEDURE EMITOCOPERATQK); VALUE OPERATOR; INTEGER OPERATOR; 

EMITC1&0PERATQRC36I38U0J); 



04005000 T 0207 
04006000 T 0207 

04007000 T 0207 



PRTC505) * EMITC 



COMMENT EMITC IS PRIMARILY FOR USE BY STRMSTMT TO EMIT CHARACTOR MODE 
OPERATORS, HOWEVER IT ALSO HANDLES DIA, DIB# AND TRB; 
PROCEDURE EMITC<REPEAT, OPERATOR)* VALUE REPEAT, OPERATOR; 

INTEGER REPEAT#OPEKATQR# 

BEGIN 

IF REPEAT464 THEN FLAGC268)/ 
EMITC0PEHATOR&REPEATC36J42I6]) END EMITC; 



04008000 T 0209 

04009000 T 0209 

04010000 T 0209 

04011000 T 0209 

04012000 T 0209 

04013000 T 0209 

04014000 T 0211 



PRTC506) » EMITV 



COMMENT EMITV EMITS AN OPERAND CALL. IF THE AqqRESS ja F 0R THE SE C OND 

HALF OF THE PRT, THEN IT ALSO EMITS A PRTE; 
PROCEDURE EMITV(ADDRESS); VALUE ADDRESS) INTEGER ADDRESS; 



04015000 T 0213 
04016000 T 0213 
04017000 T 0213 



BEGIN IF ADDRESS > 1023 THEN EMITQCPRTE?; 

EMITC2 & ADDRESS [36I38U0J) END EMlTV/ 



04018000 T 0213 
0401V000 T 0215 



PRT(507) * EMITN 



COMMENT EMITN EMITS A DESCRIPTOR CAUL. IF THE ADDRESS IS FOR THE 

SECOND HALF OF THE PRT# THEN IT ALSO EMITS A PRTEi 
PROCEDURE EMITNCADDRESS); VALUE ADDRESS; INTEGER ADDRESS; 

BEGIN IF ADDRESS > 1023 THEN EMlTQCPRTE); 

EMIH3 & ADDRESS C36»38»lOJ) END EM}TN; 



0*020000 T 0217 

04021000 T 0217 

04022000 T 0217 

04023000 T 0217 

04024000 T 0219 



PRTC510) * 



CO 



PR 
EMITPAIR 



MMENT EMITPAIR EMITS A LlTC ADDRESS FOLLOWED BY OPERATOR. IF TH£ 

address is for the second half of the prt, then it also 
emits prte; 

OCEDURE EMITPAIR (ADDRESS* OPERA TOR); 

VALUE ADQRESS, OPERATOR/ 
INTEGER ADDRESS, OPERATOR; 
BEGIN 

EMITLCAODRESSJ; 

IF ADDRESS > 1023 THEN EMITQCPRTEJ* 

EMITQ(QPERATQR) END EMITPAIR; 



04025000 T 
04026000 T 
04027000 T 
04028000 T 



04029000 
04030000 
04031000 
04032000 
04033000 
04034000 



0221 
0221 
0221 
0221 

0221 
0221 
0221 
0221 
0221 
0223 



PRT(5U) * ADJUST 



comment adjust adjust l to the begining of a word ano fills in the 

inervening space with nqpst it checks stkeamtug to decide 

which sort of nop to use; 

procedure adjust; 

BEGIN 



WHILE L. £46133*0 DO EMITC45); 

END adjust; 



04080000 T 0224 

04081000 T 0224 

04082000 T 0224 

04083000 T 0224 

04084000 T 0224 

04985000 T 0224 

04086000 T 0224 

04087000 T 0228 



PROCEDURE EMITLNG; 
PRTC512) « EMITLNG 

BEGIN LABEL E; 



04098000 T 0228 



IF NOT LINKTOG THEN GO TO E; 
COMMENT GO TO £ IF LAST THING IS A LINK; 
IF GETCL) * THEN GO TO H 
EITHER LAST EXPRESSION WAS CONDITIONAL OR THERE IS NO 
LNG OR RELATIONAL OPERATOR; 

IF GT1 * GETU-1J * 77 THEN L «• L-l 
LAST THJNG WAS AN LNG - SO CANCEL IT; 

GT1. £42163*21 AND GTl,C37l23*0 THEN * AHA 
THING WAS A RELATIONAL; 



START 



COMMENT 



COMMENT 

ELSE IF 
COMMENT LAST 



04099000 
OF SEGMENT 
04100000 
04101000 
04102000 
04103000 
04104000 
04105000 
04106000 
04107000 
04108000 



T 0228 

********** 



0000 
0000 
0000 
0002 
0002 
0002 
0005 
0005 
0009 



26 



BEGIN L*fi; EMlT0(REAU(BQULEAN(GTltt36«l03) EQV 
BOOLEANCIF GTi,C<»OI2) * THEN 511 ELSE 463))) 
COMMENT NEGATE THE RELATIONAL; END ELSE 
EJ EMITQ(LNG) END EMITLNG; 



26 IS 



04109000 
04110000 
04U1000 
04112000 



16 LONG, 



0009 
0012 
0015 
0015 
NEXT SEG 



STACKCF+2) * TL 



COMMENT EMITB EMITS A BRANCH OPERATOR AND ITS ASSOCIATED NUMBER; 
PROCEDURE EMI TB< BRANCH, FROM, TOWARDS); 

VALUE BRANCH, FROM, TOWARDS; 
INTEGER BRANCH, FROM, TOWARDS; 
BEGIN 

INTEGER TL; 



tl «• l; 
if towards > fouleo then fouled ♦ towards; 

L * FROM-2; 

gti * towards-frum; 
if towards, [46«2j * 
then begin 

branch * branch&1c39i47i13j 

gti * towards div 4 • (from-1) div 4 eno; 

EMITNUM(ABSCGTi)); 
EMITOCBRANCH&(REALCGTU ) + t ) 1 42 $ 46 i 2 3 ); 



04113000 

04114000 
04115000 
04116000 
04117000 
04118000 



0226 
0226 
0226 
0228 
0228 
0228 



START OF SEGMENT ********** 27 



L 
END 



♦ TL 

emitb; 



27 IS 



04119000 T 
04119500 T 
04120000 T 
04120100 T 
04120200 T 
04120300 T 
04120400 T 
04120500 T 
04121000 T 
04122000 T 

04123000 T 

04124000 T 

04125000 T 

19 LONG, 



0000 
0000 
0002 
0004 
0005 
0006 
0007 
0008 

oou 

0012 

0015 
0015 
0015 
NEXT SEG 



PRTC513) • 



STREAM 
DEBUGWQRD 



COMMENT DEBUGWORD FORMATS TWO FIELDS FOR DEBUGGING OUTPUT IN 
OCTAL' NAMELY I 

1, 4 CHARACTERS FOR THE L REGISTER, 
2.16 CHARACTERS FOR THE WORD BEING EMITTED. ; 
PROCEDURE Q£8UGWQRD< SEW, CQDE,FElL >J VALUE SEU,CQOE ; 



BEGIN 

di*feil; SI* 

DS * 2 LIT" 



loc seq; SI* SI+4; OS ♦ 4 chr; 



h ; 



si #■ 
i*< 

29CDS * 
END ; 



LOC code ; 

OS * 3 RESET; 3( IF 
DS ♦ RESET ; SKIP 1 
2 LIT" " ); 



SB THEN 

SB)); 



OS*SET ELSE 



04126000 


T 


0228 


04127000 


T 


0228 


04128000 


T 


0228 


04129000 


T 


0228 


04130000 


T 


0228 


04131000 


T 


0228 


04132000 


T 


0229 


04133000 


T 


0230 


04134000 


T 


0230 


04135000 


T 


0230 


04136000 


T 


0232 


01137000 


T 


0233 


04138000 


T 


0234 



COMMENT EMITWURO PLACES THE PARAMETER, "WORD", INTO EDOC, IF 



PROCEDURE 



DEBUGGING IS REQUIRED, "L" ANO "WORD" ARE 
THE PRINTER FILE IN OCTAL FORMAT, ; 
EMITWORO (WORD); VALUE WORD; REAL WORD; 



OUTPUT ON 



04139000 T 0234 

04140000 T 0234 

04141000 T 0234 

04142000 T 0234 



PRTC5H) * EMITWORD 



BEGIN 

adjust; 

if l* 4088 then begin err(200); l*qj end 

else begin 
mqve(1#w0r0# cqoeu div 4+1)); 

if de8ugt0g then 

BEGIN OEBUGH0R0Ce2O((.)#WQKD»UlN>i 
WRITEllNE ENDJ 

FOULED * L * L + a; END 

end emitword; 



04143000 
04144000 
04145000 
04146000 
04147000 
04148000 
04149000 
04150000 

04151000 
04152000 



0234 
0234 
0235 
0238 
0240 
0245 
0245 
0248 

0258 

0260 



COMMENT CQNSTANTCLEAN IS CALLED AFTER AN UNCONDI T IUNAL BRANCH H*S 
BEEN EMITTED. IF ANY CONSTANTS HAVE BEEN ACCUMULATED BY 
EMITNUM IN INF0C0»*]# CONSTANTCLEAN WILL FIX THE CHAIN 
OF C-RELATIVE OPOC S LEFT BY EMITNUMt IF C-RELATIVE 
ADDRESSING IS IMPOSSIBLE (I,E. THE ADDRESS 
IF GREATER THAN 127 WORDS) THEN THE CONSTANT ALONG WITH 
THE 1ST LINK Or THE OPDC CHAIN IS ENTERED IN INFO, 
AT PURGE TIME THE REMAINING OPDC S ARE EMITTED WITH 
F -RELATIVE ADDRESSING AND CODE EMITTED TO STORE THE 
CONSTANTS INTO the proper f-relative CELLS, ; 
PROCEDURE CONSTANTCLEAN ; 

IF MRCLEAN THEN 
BEGIN 

INTEGER U#TEMPL>D*LINKJ 
PRTC515) ■ *SEGMENT DESCRIPTOR* 

STACKCF+2) s J 

STACKCF+3) s TEMPL 

STACKCF+4) k D 

STACK(F*5) m LINK 



04153000 

04154000 
04155000 
04156000 
04157000 
04158000 
04159000 
04160000 
04161000 

04162000 
04163000 
04164000 
04165000 
04166000 



0260 

0260 
0260 
0260 
0260 
0260 
0260 
0260 
0260 

0260 
0260 
0260 
0261 
0261 



STACK(F+6) « CREL 



BOOLEAN CRELJ 

LABEL ALLTHU i 

FOR J * 1 STEP 2 UNTIL LASTENTRY DO 
BEGIN 
adjust; templ*l; L«-INFQC0#255-J + 1J; 
crel «■ false; 

DO BEGIN 

IF D*CTEMPL-L*3)DIV 42128 THEN 
IF MODE * THEN 
BEGIN FLAGC50); QQ TO ALLTHU END; 



START OF SEGMENT ********** 



04167000 T OOOO 



28 



LINK*G£TU>; 

crel ♦ true; 
if mode * then emitvcd+768) else 

EMlTVCREAL(TEMPL*2Q48)xiQ24+TEMPL DIV 
END UNTIL L* LINK * 4095 J 



4); 



04168000 

04169000 
04170000 
04171000 
04172000 
04173000 
04174000 
04175000 
04175500 
04176000 
04177000 
04178000 
04179000 
04180000 
04181000 
04182000 
04163000 
04184000 
04184500 
04185000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0001 
OOOl 
0005 
0005 
0006 
0008 
0010 
0011 
0011 

oou 

ooit 
oou 
oou 

0013 
0013 
0016 
0019 



PRT<516) * *SEGMENT DESCRIPTOR* 



ALLTHUt L ♦ TEMPL; 

IF CREL THEN EMlTWORDC INFOCO* 2S5-J )); 
ENDi 
IASTENTRY ♦ Oi 

END ; 



04186000 
04187000 
04186000 
04189000 
04190000 



0021 
0022 
0025 
0028 

0028 



28 IS 33 LONG* NEXT SEG 



COMMENT EMlTNUM HANDLES THE EMlSSl 

EXPLICIT AND IMPLICIT 
PRODUCE CODE TO GET T 
THE STACK. IF THE NUM 
SYLLABLE IS PRODUCED, 
IN THE ZERQ-TH ROW OF 
POSITIONAL. THE FIRST 
CONSTANT CAUSES THE V 

TO BE STORED IN INFOC 
IN REVERSE STARTING W 
ITS THE JOB OF C0N5TA 
OPDC (SEE C0N5TANTCLE 
PROCEDURE EMITNUM( C >; VALUE Qi REAL C 
BEGIN LABEL FlNlSHED#FOUNO 



ON OF CODE FOR C 
. IN EVERY CASE* 
HE DESIRED CONST 
BER IS A LITERAL 
HQWEVER#NON-LlT 
INFO WITH THE S 
EMITNUM ON A HA 
ALUE5 OF L AND T 
0**3 (NOTEIITEMS 
ITH INF0C0#255J* 
NTCLEAN TO EMIT 
AN PROCEDURE FOH 
i 
) REAL n; 



0N5TANTS*BQTH 
EMITNUM WILL 
ANT UN TOP OF 

A SIMPLE LITC 
ERAi.5 ARE KEPT 

YLLABLE 
RTICULAR 
HE CONSTANT 

ARE STORED 
ETC.), THEN 
THE ACTUAL 

DETAILS) ; 



STACKCF+2) = N 



IF C.U«37)«0 THEN EMITL<C) 
ELSE 

BEGIN 

FOULED * L; 

FOR N ♦ 1 STEP 2 UNTIL LASTENTRY DO 
IF INFQCQ,255«N] ■ C THEN GO TO FOUNO ; 

JNF0CQ>255 -LASTENTRY) * Li 

INF0CQ#255 -LASTENTRY-U* C } 

EMITNU023); 

IF MOOE»0 THEN £MIT0(N0P)J 

LINKT0G*FALSE' 

IF LASTENTRY * LASTENTRY+2 > 128 THEN 
BEGIN 

c * bumpl; 
constantclean; 
emitbcbfw,c»d; 
end; 
go to finished; 

FOUND* EMIT(INF0t0*2&5 -N+1J); 

linktog*false; 

INF0CO,255-N*13#- l-i; 
IF M0DE»0 THEN EMITO(NOP); 
END) 
FINISHEDJENO EMITNUM ; 



04191000 
04192000 
04193000 
04194000 
04195000 
04196000 
04197000 
04198000 
04199000 
04900000 
04101000 
04202000 
04203000 
04804000 
START OF SEGMENT 

04205000 
04206000 
04207000 
04807500 
04808000 
04209000 
04210000 
04211000 
04212000 
04112100 
04313000 
04214000 
04215000 
04216000 
04217000 
04218000 
04219000 
04220000 
04221000 
04222000 
04223000 
04223100 
04224000 
04225000 
29 IS 88 LONG* 



0266 
0266 
0266 
0266 
0266 

0266 
0266 
0266 
0266 
0266 
0266 
0266 
0266 
0266 
********* 

0000 
0002 
0003 
0003 
0004 
0005 
0010 
0012 
0015 
0016 
0018 
0019 
0020 
0021 
0023 
0023 
0024 
0024 
0025 
0028 
0029 
0033 
0035 
0035 
NEXT SEG 



29 



COMMENT SEARCH PERFORMS A BINARY SEARCH ON THE COP AND WOP 



04226000 T 0266 



PRTC517) 9 SEARCH 



ALPHA 



ARRAYS, GIVEN THE UPERATQR BITS SEARCH YIELDS THE BCO 
MNEUMUNIC FOR THAT OPERATOR. IF THE OPERATOR CANNOT 
BE FOUND SEARCH YIELDS BLANKS, 

NOTEI DIA,DIB,TRB ARE RETURNED AS BLANKS. } 
PROCEDURE SEARCH CQ#KEYJJ VALUE KEY/ ARRAY «COj; REAL KEY i 

BEGIN LABEL U 



COMMENT GTl AND GT2 ARE INITIALIZED ASSUMMlNG THAT Q IS ORDERED 
BY PAIRS (ARGUMENT#FUNCTION»ARGUMENT#FUNCTION#ETC.) 
AND THAT THE FIRST ARGUMENT IS IN QC4], FURTHERMORE 
THE LENGTH OF Q IS 128, i 

INTEGER N#l J 



STACK(F*3) * N 
STACKCF+4) * I 



L« 



START 



N «• 
FOR 



64 ; 

I •• 66 STEP IF QCI3<KEY 
WHILE N*N DIV 2 i 
IF AC I 3* KEY THEN GO TO L i 
I *0; COMMENT ARGUMENT NOT 
SEARCH*QC I ♦ !) I 
END SEARCH ; 



THEN 
1 DO 



N ELSE - N 



FOUNO/SEARCHsQUJ 



04927000 T 0266 

04228000 T 0266 

04229000 T 0266 

04830000 T 0266 

04231000 T 0266 



04232000 


T 


0266 


OF SEGMENT 


********** 


0*233000 


T 


0000 


04234000 


T 


0000 


04235000 


T 


0000 


04236000 


T 


0000 


04237000 


T 


0000 


04236000 


T 


0000 


04239000 


T 


0000 


04240000 


T 


0005 


04241000 


T 


0009 


04842000 


T 


oou 


04243000 


T 


oou 


04244000 


T 


0013 



30 



30 IS 16 LONG, NEXT SEG 



comment b2d converts the four low order octal digits to bcd 
code ; 
alpha procedure b20cb)j value b* real b; 

B2D*0&B[45t45J3]&B[39j42«3]&BC33»39»3j&B[27l36l3] ; 



04245000 T 0266 

04246000 T 0266 

04247000 T 0266 

04246000 T 0266 



PRTC520) » PACK 



COMMENT PACK IS A STREAM PROCEDURE WHICH INSERTS THE SYLLABLE 
INTO THE EDOC ARRAY, TH£ SPECIFIC ELEMENT OF EDOC 
IS PRECISILY * EDQCCU DIV 4) DIV 128* C< DIV 4JMQD 128] 
SYLLABLE POSITIONAL MOD 4 }# WHERE L i» THE SYLLABLE 
NUMBER RELATIVE TO THE BEGINNING OF THE SEGMENT; 
STREAM PROCEDURE PACKC WORD* PQS IT I QN» SYLLABLE ) ; 



VALUE POSITION/SYLLABLE; 

BEGIN 

OI*WORO ; DI * DISPOSITION * 

SI*L0C SYLLABLE J 5l*SI+6; 

DS*2 CHR i 

END PACK ; 



oi * disposition; 



04265000 
04266000 
04267000 
04266000 
04269000 
04270000 

04271000 
04272000 
04273000 
04274000 
04275000 
04276000 



0274 
0274 
0274 
0274 
0274 
0274 

0274 
0274 
0275 
0276 
0276 
0277 



PRTC521) * DEBUG 



COMMENT DEBUG PRINTS OUT OBJECT CODE IF "0E6UGN" IS SET; 
PROCEDURE DEBUGCS); VALUE S; REAL S; 

BEGIN REAL TU 



04877000 T 0277 

04177500 T 0277 

04278000 T 0277 

START OF SEGMENT ********** 



31 



STACKCF4.2) * Tl 



PRTC522) * *LIST* 



IF SING1.T0G THEN 

WRITECLINE»BUG»B2D<D* 
LABEL* OR SEGMENT DESCRIPTOR* 
IF STREAMTOG THEN 

SEARCM(C0P#S t C42»63J 
ELSE IF TH*S, [46123*1 THEN 
ELSE WQPCT13 * IF STREAMTOG 



62D<S,C3*l6J> ELSE JF Ti*l THEN WOPtlJ 
ELSE B2D(S.C36llO])#B20(S)) 
ELSE WRITECLINE'BUG#B2DCL)# 
PRT(523) s *LIST* LABEL* OR SEGMENT DESCRIPTOR* 

IF STREAMTOG THEN 

$|ARCH{C0P*S,C42*6J) 
ELSE IF Tll«S t U6i23M THEN 
ELSE WOPCTU * IF STREAMTOG 



SEARCHCWUP#S,t36U03) 
THEN 



B2D(S,t36|6J) ELSE IF Tl«i THEN WQPC13 
ELSE B2D(S,[36llQ])t82D(S))> > 

end debug; 



SEARCHCWOP*S.C36UO]) 

THEN 



04278500 


T 


OOOQ 


04279000 


T 


0000 


04279500 


T 


0008 


04280000 


T 


0009 


04280500 


T 


0010 


04281000 


T 


0015 


04281500 


T 


0019 


04282000 


T 


0023 


04182500 


T 


0027 


04263000 


T 


0038 


04283500 


T 


0039 


04284000 


T 


0040 


04284500 


T 


0045 


04285000 


T 


0049 


04285500 


T 


0053 


04286000 


T 


0061 



31 IS 64 LONG* NEXT SEG 



COMMENT EMIT PLACES SYLLABLES INTO EOOC* CALLS DEfcUG FOR 

DEBUGGING OUTPUT ON THE PRINTER* AND CHECKS FQR SEGMENTS 



THAN 4093 SYLLABLES, 
; VALUE Si REAL 5 



GREATER 
PROCEDURE EMIT ( S ) 
BEGIN 

IF L < «088 THEN 
BEGIN 

LINKTQG * TRUE; 
PACKCCODECL DIV 4 + 1 >#Lt U6 |2]»S) J 
IF DEBUGTOG THEN OEBUG(S); 
L*L+1* 
END ELSE 

BEGIN ERRC200); 1*1 J ENDi 
COMMENT 200 EMIT - SEGMENT GREATER THAN 
END EMIT i 



I 



4093 SYLLABLES 



*; 



04288000 

04289000 
04290000 
04291000 
04292000 
04293000 
04294000 
04295000 

04296000 
04297000 
04298000 
04299000 
04300000 
04301000 
04302000 



T 

T 
T 
T 
T 
T 
T 
T 

T 

T 

T 
T 
T 
T 
T 



0277 

0277 
0277 
0277 
0277 
0277 
0278 
02/9 
0280 
0285 
0287 
0288 
0288 
0292 

0292 



COMMENT 



PROCEDURE 



emItd emits the dia,dib,trb 
previous setting qf the g-h 



THE CURRENT f 
THE APPROIATE 
IF BITS ARE 
EMITTED I 
EMITD(A*B*T); 



SEQUENCE OF CODE. 
AND K-V REGISTERS 



STACK(F+2) * Q 



BEGIN LABEL EXI T*NQRMAL>" 

REAL Qi 

IF T • 15 THEN 

BEGIN 

IF A ■« 33 THEN Q ♦ 512 



IF THE G*H*K-V OR BOTH ARE 

3YLLABLECS) ARE OMITTED 

TO BE TRANSFEREO THEN NO SYLLABLES 

VALUE A*B*T ; INTEGER A*B*T; 



THE 

IS COMPARED 
ALREADY SET THEN 



ARE 



START 



04305000 
04306000 
Q»3Q7000 
04108000 
04909000 
04310000 
043H000 
043H010 
OF SEGMENT 
04311020 



T 0292 

T 0292 

T 0292 

T 0292 

T 0292 

T 0292 

T 0292 

T 0292 
********** 

T 0000 



04311030 T 0000 
04811040 T 0000 
04311050 T 0001 



32 



normau 



ELSE IF A * 18 THEN GO TO NORMAL; 
IF B a 18 THEN Q «• Q + 256 

else if b * 33 th£n go to normal* 

emitq(q*197>; comment •- thjs gets out fixed fielo; 

go to exit; 

end; 

if tx then 

BEGIN 

EMITUCDIA|.A*A) OIV 6)x5l2 ♦ ( A* A MOO 6}x 64 ♦ DJA); 

EMIT(C(0IALB*8) OIV 6)x5l2 + ( B* B MOO 6)x 64 ♦ DIB); 
EMITCTRB+64XT); 



EXIT« 



END 

end; 



emitd ; 



043U060 
04B1107Q 
04B1108Q 
04311090 
04311100 
04311110 
04311120 
04312000 
04313000 
04314000 
04315000 

04316000 
04317000 

04318000 
04319000 
04820000 

04321000 
04322000 
04322100 



32 IS 87 LONG, 



0002 
0005 
0006 
0009 

ooio 
oou 

0011 
0011 

oou 

0012 
0012 

0017 
0017 
0021 

0023 
0023 
0023 
0023 

0023 
NEXT SEG 



PRTC524) * EMITI 



STACKCF+2) * S 

STACK(F+3) * Tl 

STACKCF+4) b T2 

PRT(525) * EMIT21 



PRQCEDgRE EMlTl (E» A, B ) i VALUE E>A,B; REAL E#A,B; 
BEGIN LABEL EXlT*I$J 
INTEGER S*T1#T2; 



PROCEDURE EMIT21CE'B); VALUE E*B; 

REAL e; 

BOOLEAN B; 

BEGIN IF E » THEN 

BEGIN IF B THEN EMITO(XCH); END 
ELSE BEGIN GT1 ♦ EtAOORESS; 

IF E «■ E, CLASS S INTIO THEN 

EMITV(GTl) 
ELSE IF E S INTARRAYIO THEN 
EMITPAIR(GT1#L0D) ELSE 
EMITN(GTI) 
END 

end; 



04500000 T 0292 

04501000 T 0292 

START OF SEGMENT ********** 

04102000 T 0000 



33 



04S03000 


T 


0000 


04B0400Q 


T 


0000 


04S05000 


T 


0000 


04506000 


T 


0000 


04507000 


T 


0000 


04508000 


T 


0002 


04109000 


T 


0004 


04521000 


T 


0006 


04922000 


T 


0007 


04923000 


T 


0008 


04924000 


T 


ooio 


04925000 


T 


0011 


04526000 


T 


oou 



IF 8 « THEN 

BEGIN EMIT2l(E>FALSE); GO TO EXIT END; 
IF STACKCT * Q THEN GO TO IS; 
IF B * 15 THEN 

BEGIN IF A * 33 THEN 

BEGIN EMIT21(E>FAL5E); 

EMITCO); EMITOCINX); 



04926100 
04526200 
04527000 
04528000 
04|29000 
04930000 
04931000 



oou 

0012 
0014 
0016 
0016 
0018 
0019 



PRTC526) « IN 
PRTC527) s EXP 
PRT(530) * X TO 



GO TO exiTi 

ENO' 
IF A « 18 THEN 

BEGIN EMIT(O); 

EMIT2i(C»TRUE); 
EMIT0C197); 

go to exit; 

ENO> 
GO TO ISi 

end; 

IF B UO AND A + B - 48 TH£N 
BEGIN EMIT21CE, FALSE)* 
EMITL<8*B-1)J 



THE I 



IS* 



EMUOUNO); 

go to exit; 
end; 

IF (S * (48-A-B) MOD 6)+B S 

BEGIN EMIT21CE*FALSE); 

EMIT(T2*(T1«-A DIV 

EMIT(UAtB"l> DIV 

GO TO exit; 
end; 
emitcqj; 

EMJT2l(E#TRUE)J 
EMITD(A,48-B#B); 



39 THEN 

6)x5l2+(A MOD 6)x$4+DIA); 
6 -TUi>x512*64xS*37); 



exit« end; 



33 IS 



04532000 


T 


0021 


04933000 


T 


0021 


04534000 


T 


0021 


04535000 


T 


0022 


04536000 


T 


0023 


04537000 


T 


0024 


04S38000 


T 


0025 


04939000 


T 


0025 


04540000 


T 


0025 


04541000 


T 


0026 


04542000 


T 


0026 


04543000 


T 


0028 


04944000 


T 


0030 


04545000 


T 


0033 


04946000 


T 


0034 


04547000 


T 


0034 


04948000 


T 


0034 


04549000 


T 


0038 


04550000 


T 


0039 


04551000 


T 


0044 


04552000 


T 


0049 


04553000 


T 


0050 


04554000 


T 


0050 


04555000 


T 


0051 


04556000 


T 


0052 


04557000 


T 


0053 


04558000 


T 


0053 


97 LONG 


\» 


NEXT SEG 



PRT(531) » STEPIT 



COMMENT THIS SECTION CONTAINS MISCELLANEOUS SERVICE ROUTINES; 
COMMENT STEPI AND STEPIT ARE SHORT CALLS ON TABLE; 
PROCEDURE STEPIT; ELCLASS * TABLE (1*1 +1 >J 



05000000 T 0292 
05001000 T 0292 
05002000 T 0*92 



PRT(532) s STEPI 



INTEGER PROCEDURE STEPI; STEPl*ELCLASS«-TABLE( 1*1 + 1)1 



05003000 T 0295 



COMMENT TAKE FETcHS A WQRO FROM INFO; 

REAL PROCEDURE TAKECINDEx); VALUE INDEx; INTEGER INDEX; 
TAKE * INFOCINDEX,LINKR#INOEX.LINKC]; 



05004000 T 0301 
05005000 T 0301 
05006000 T 0301 



COMMENT PUT PLACES A WORQ INTO INFO; 



05007000 T 0307 



PRT(533) a PUT 



PROCEDURE PUT(WORD*lNDEX); VALUE WQRD#INDEX; REAL WOHD,INOEX; 
INFQCINDEX,LINKR*INDEX|LINKC3 * WORD* 



05008000 T 0307 
05009000 T 0307 



COMMENT flag flags error messages* counts them ano suppress FUTURE 

ERROR MESSAGES UNTIL THE COMPILER THINKS IT HAS RECOVERED; 
PROCEDURE FLAG(ERRNUM)J VALUE ERRNUM; INTEGER ERRNUM; 
BEGIN 

comment writerror is the stream procedure which actually proouces 
the error message on the printer* 
stream procedure writerror(errnum,accum#-line»count»lstseq); 



PRTC534) « WRITERROR 



start 



VALUE 
BEGIN 



">; comment 
ds *wos; 



clear buffer; 



errnum#countj 

di «• line; <u(ds*-2lit m 
si »lstseq; si * si-s; 
si * line; os ♦ 2 wds; 

♦ 2 LIT "XX"); COMMENT SET RIGHT MARGIN FLAG; 

lstseq; oi «■ lstseq; oi «■ oi-e; os «• wos; 

LINE; DI ♦ 01*8; COMMENT INDENT MESSAGE; 
13 LIT "ERROR NUMBER "J 

loc errnum; os * 3 dec; comment convert errnum; 
accum; si ♦ si*3; ds ♦ count chh; 

COMMENT PLACE ALPHA IN BUFFER; 
LIT "," 



4(DS 
si * 

Ul 
DS 
SI 

os 

SI 



OS «• 
END WRITERROR; 



05010000 


T 


0311 


05011000 


T 


0311 


05012000 


T 


0311 


05013000 


T 


0311 


05014000 


T 


0311 


05015000 


T 


0311 


05916000 


T 


0311 


OF SEGMENT 


******* 


05017000 


T 


0000 


05018000 


T 


0000 


05019000 


T 


0000 


05020000 


T 


oooi 


05021000 


T 


0002 


05022000 


T 


0002 


05023000 


T 


0003 


05024000 


T 


0004 


05025000 


T 


0005 


05026000 


T 


0007 


05027000 


T 


0007 


05028000 


T 


0008 


05029000 


T 


0009 


05030000 


T 


0009 


05031000 


T 


0009 



34 



IF ERRORTOG THEN % 00 NOTHING IF WE SUPPRESS MSSGS. 
BEGIN 

SPECTOG l» FALSE; 

ERRQRCQUNT !» ERRORCOUNT+1 ; COMMENT COUNT ERRORS; 
IF NOT LISTER THEN 
BEGIN 

editlineclin*fcr'l div 4#lt t 46 12 3 *medium#0 ) ; 

muve(1*infqclastseqrqw,lastse9uencej*linc123); 
if n0hea01ng then datime; writeline; 
end; 
comment print cardlmage if we are not listing; 

accumch ♦ qj comment restore accumulator; 

WR ITERROR C ERRNUM, ACCUM tl3#L INC*3 »e,£ 12*63* 

INF0CLASTSE0R0W»LASTSEQUENCE3); 
IF NOT NOHEADING THEN WRITELINE ; 

ERRORTOG ♦ FALSE; COMMENT INHIBIT MESSAGES; 
IF PUNCHTOG THEN 

BEGIN REAL Tl#T2,T3*T4; LABEL L#L1,EXITI 
PRT(535) • *SEGMENT DESCRIPTOR* 

STACKCF+2) * Tl 
STACK(F+3) ft T2 



START OF 



05032000 


T 


0010 


01033000 


T 


0010 


05034000 


T 


0010 


08035000 


T 


ooii 


05036000 


T 


0012 


05037000 


T 


0013 


05038000 


T 


0013 


05039500 


T 


0017 


05039600 


T 


0019 


05041000 


T 


0031 


05042000 


T 


0031 


05043000 


T 


0031 


05044000 


T 


0032 


05045000 


T 


0034 


05046000 


T 


0036 


05S47000 


T 


0047 


05048000 


T 


0048 


05049000 


T 


0048 


SEGMENT 


********** 



35 



STACKCF+4) « T3 
STACKCF+5) m T4 

PRT(536) ■ Pi 



STREAM PROCEDURE Pl(LiP)i VALUE PI 

BEGIN 01 * LI 15(DS*8LIT M ")l 
SI ♦ LOC PI DI*-LI SI*SI*5I SKIP 3 SBI 
5 

(DS*3 RESETI3CIF SB THEN DS*5ET ELSE DS*RESET|SKIP l 5B))| 
SI«-PI 

01*01*21 2(8 

(DS*3 RESET|3(IF SB THEN DS*SET ELSE DS*RESET|SKIP 1 SB)); 
DS*LIT" ") ENOI 



OSOSOOOO 


T 


0000 


05051000 


T 


0000 


05052000 


T 


0002 


05053000 


T 


0003 


05054000 


T 


0003 


05055000 


T 


0005 


05056000 


T 


0006 


08057000 


T 


0006 


05058000 


T 


0009 



PRT(537) * P2 



STREAM PROCEDURE P2(L#P)I VALUE PI 

BEGIN DI*LI 01 *0I*26jDS*Ln*0"; 
SI*f»l SI*SI-2I SKIP 15BI 
3 
(DS*3 RESETJ3(IF SB THEN DS*SET ELSE DS*RESETISKlP 1 SB))| 

end; 



0S059000 T 0010 



0J06O0O0 

05061000 

05062000 
05063000 

05064000 



0010 
0012 
0012 
0012 

0015 



PRT(540) * ABS 



REA|„ STREAM PROCEDURE ABS(A)I VALUE A! 

BEGIN DI ♦ LOC ABSI SI *AI OS* W0S|0I*DI-8I 08*RE*ET ENOI 



05065000 T 0015 
0»066000 T 0015 



STREAM PROCEDURE B JTEOUST C X'N* ID,LINE#CQUNT )l VALUE ID,N,CQUNTI 
PRT(541) « BITEDUST 

BEGIN LOCAL T»F>HJ 

DI*LQC n SI*LINEJ DS*wOSIDl*F| 
SI*L0C IDISI*SI+2ID5* 6CHRI 57(QS*2 LIT" " ) I 
SI ♦ LOC COUNT |SI*SI+8 I 
01 *LUC H I OS *WDS j 
DI ♦ LOC LINE I SI ♦ Ml 
SI*L06 XISKIP 2 SBI 
IF SB THEN 

BEGIN SI*XI T*SH 
N( 
DI*LQC ft SI*LINEI DS*WDSIDI*F; 
SI* LOC COUNTI SI*SI*6I 
4 

(DS*3 RESETj3(IF SB THEN DS*SET ELSE D5*RESET ISKIP 1 SB)); 

DS*2 LIT" "I SI*COUNTI SI*SI*48IC0UNT*SII 
SI*T! 

6(2(8 
(DS*3 RESET|3(IF SB THEN DS*SET ELSE DS«.RESET I SKIP 1 SB))| 
DS* LIT" M )l DS*LIT" " )l 

DI * LOC LINE I SI * HI 
SI*TISI*SI*48IT*SI)IEND ENDI 



05067000 


T 


0018 


05068000 


T 


0018 


05069000 


T 


0019 


01Q70000 


T 


0020 


05071000 


T 


0021 


05071100 


T 


0022 


05071200 


T 


0022 


06072000 


T 


0023 


08073000 


T 


0023 


05074000 


T 


0024 


05075000 


T 


0025 


05076000 


T 


0026 


05877000 


T 


0027 


05078000 


T 


0027 


08079000 


T 


0027 


05080000 


T 


0030 


05081000 


T 


0031 


05082000 


T 


0032 


05083000 


T 


0032 


05084000 


T 


0035 


05085000 


T 


0036 


05086000 


T 


0037 



PRTC542) * 



BITEDUSTCERRQRCOUNT* 63 *"PRT 'MINE* 21)i 

FOR Tl* STEP 1 UNTIL 3100 BITEDUSTC InFOI Tl* *3 *43*" INFO n *LINE>0); 

BITEOUST( ELBAU*3*13*"ELBAT "*LINE#0); 

BlTE0UST<STACKHEADC*3*2i*"STHEAD%LINE#Q); 
Tl*MKA8S(ERRNUM)-i; T3*Ti; 

L» T2*ABS(T3); 

IF T2.C33I 153»0 THEN BEGIN T3*T2. C 161 153; 

IF T3*0 THEN GO TO EXIT ELSE GO TO L END ; 
T4 * IF T2.C33115] < 512 THEN ELSE T2, C 33U5HT2C 30 1 10 1 23 1 
LliPHlINC03#Ti)MF T1*T3 THEN BEGIN IF T*0 THEN P2UINC03*T4 ); 

ti*ti-i; 
writeuine; 

t3«-t2,c18i153;g0 to l end; 

Tlt*Tl-U WRITELINEJ 

GO TO Li> 
EXITI END I 

•SEGMENT DESCRIPTOR* 

END END FLAG; 



05087000 
05088000 
01089000 
05990000 
05091000 

05092000 
05093000 

05094000 
05095000 
05096000 
05097000 
05097500 
05098000 
05099000 

09099100 
05100000 



35 IS 106 LONG* 

05101000 T 

34 IS S3 LONG* 



0038 
0041 
0049 
0052 
0055 

0058 
0060 

0063 
0065 
0070 
0076 

0077 
0091 

0093 

0104 
0105 

NEXT SEG 

0050 
NEXT SEG 



34 
3 



COMMENT 



LABEL ENDOFITALL; 
ERR*I$ THE SAME AS FLAG EXCEPT THAT IT MAKES AN 
RECOVER FROM ERROR SITUATIONS BY SEARCHING 
SEMICOLON* END* OR BEGIN; 
PROCEDURE ERR(ERRNUM); VALUE ERKNUM; INTEGER ERRNUM; 
BEGIN FLAG(ERRNUM)/ 
I «• I'll 

IF ERRNUM = 200 THEN 11*1/0**% SEGMENT 
IF ERRNUM « 611 THEN It*I/QJX ERRMAX 
DO IF STEPI * BEGINV THEN STMT UNTIL 

ELCLASS * ENDV OR ELCLASS m SEMICOLON 



ATTEMPT 
FOR A 



TO 



TOO LARGE 
EXCEEDED 



end err; 



05101 
05102 
05103 
05104 
05105 
05106 
05107 
05107 
05107 
05108 
05109 



100 
000 
000 
000 
000 
000 
000 
100 
200 
000 
000 



0311 
0311 
0311 
0311 
0311 
03U 
0312 
0314 
0316 
0319 
0321 



PRTC543) 



define error * err#j comment error is a synonm for err; 
comment checker is a small procedure that checks to see that the 

uplevel aooressing conventions are obeyeo; 
procedure checkercelbatwqro); value elbatword; real elbatwqro; 

CHECKER 

BEGIN 



IF MODE * 2 THEN 

IF GT1 * ELBATWORD. LVL i FRSTLEVEL THEN 

IF GT1 < SUBLEVEL THEN 
IF ELBATWQRO. t9»23 * 1 

THEN BEGIN FLAG(lOl); 
END checker; 



ERHQRTQG «■ TRUE END 



05110000 T 
05111000 T 
05112000 T 
05113000 T 



05114000 
05115000 
05116000 
05U7000 
05118000 
05119000 
05120000 



0323 
0323 
0323 
0323 

0323 
0323 
0324 
0327 
0328 
0329 
0332 



COMMENT GIT IS USED TO OBTAIN THE INDEX TO ADDITIONAL INFORMATION 
GIVEN THE LINK TO THE ELBAT WORD; 
INTEGER PROCEDURE GlTCDJ VALUE U REAL LJ 
GIT ♦ TAKE<L).INCR*L t LlNKJ 



05121000 T 0332 

05122000 T 0332 

05123000 T 0332 

05124000 T 0332 



STACKCF+3) a A 



COMMENT GNAT IS USED TO OBTAIN THE PRT AODRESS OF A GIVEN DESCRIPTOR, 

IF THE ADDRESS HAS NOT BEEN ASSIGNED* THEN IT USES 

GETSPACE TO OBTAIN THE PRT ADDRESS! 
INTEGER PROCEDURE GNATCDJ VALUE Li REAL H 

BEGIN 

REAL Ai 



IF GNAT *(A*TAKE(D)iADORESS»0 

THEN PUTCA&CGNATI*GETSPACECTRUE>L.LlNK*imi6l37llU*L> 

end gnat; 



05125000 
01126000 
05127000 
05128000 
05129000 
05130000 



0338 
0338 
0338 
0338 
0338 
0338 



START OF SEGMENT ********** 



36 



05131000 T 
05132000 T 

05133000 T 
IS 10 LONG, 



0000 
0002 

0007 
NEXT SEG 



36 



REAL PROCEDURE TAKEFRST; 
PRTC544) « TAKEFRST 

TAKEFRST * TAKEC EL^AT C U ,LINK*ELBATC IJ , INCH ) ; 



05188000 T 0338 
05189000 T 0338 



PRT(545) * STUFFF 



comment stufff dials the f-regjster into the f-register field of a 
descriptor^ the descriptor remains on thfc top of the 
stack; 

procedure stufff(aodress); value address; integer adoress; 



BEGIN 



EMITPAIR(ADDRESS#LOO)i 

EMITNC512); m 
EMfTD<33»18*l5) ENO STUFFF; 



05196000 T 0344 

05197000 T 0344 

05198000 T 0344 

05199000 T 0344 

05200000 T 0344 

05201000 T 0344 

05202000 T 0346 

05203000 T 0346 



PRTC546) ■■ LOCAL 



COMMENT LOCAL IS USEO TO SEE WHETHER OS NOT A LABEL IS LOCAL TO OUR 

PRESENT CODE; 
BOOLEAN PROCEDURE IQCALCElBATWQRQ ) J 

value elbatword; heal elbatword; 
begin if elbatwqrdtlvl m level and 

not 800leancelbatw0r0, formal) then 
local ♦ true eno local; 



05204000 T 0348 

05205000 T 0348 

05206000 T 0348 

05207000 T 0348 

05208000 T 0348 

05209000 T 0350 

05210000 T 0351 



COMMENT PASSFQRMAT COMPILES CODE THAT PASSES A FORMAT, TWO ITEMS ARE 



09811000 T 0355 



PRK547) • 



PROCEDURE 
PASSFORMAT 



PASSED - THE ARRAY REFERENCING FORMAT TABLE AND THE 
STARTING INDEXt THE ROUTINE HANDLES SUPERFORMAJS AlSQ; 
PASSFORMAT; 

BEGIN INTEGER ADRES; 



STACKCF+2) = ADRES 



START 



CHECKERCELBATtm* 

adres ♦ elbauij. address; 

if booleancelbatci], formal) 

then begin em itv ( adres); adres «■ adres-1 end 
else begin 
if tableu) » superfrmtid 
then emitlctakefrst) else emulc elbatc u . incr ) 
end; 
if tableci) » superfrmtid 
then begin bana; i ♦ i»h 
emito(ssp); emitocaodj; emitvcaores) end; 
emitp*irca0re5#l0d) end passformat; 



05212000 


T 


0355 


05213000 


T 


0355 


09214000 


T 


0355 


09215000 


T 


0355 


OF SEGMENT 


******* 


05216000 


T 


0000 


09217000 


T 


0001 


oseiaooo 


T 


0002 


05219000 


T 


0002 


05120000 


T 


0006 


05221000 


T 


0006 


05122000 


T 


0007 


05823000 


T 


0010 


05224000 


T 


0011 


05225000 


T 


0012 


05226000 


T 


0014 


09227000 


T 


0017 



37 



37 IS 21 LONG, NEXT SEG 



COMMENT STREAMWQRU5 EITHER RESERVES Or UNRESERVES STREAM RESERVED 

WORDS • IT COMPLEMENTS THEIR STATE; 
PROCEDURE STREAMWOHDS; 
PRT(550) « STREAMWORDS 

BEGIN GT1 * 0; 
DO BEGIN 
lNFUCl#GTlJ,LINK*STACKH£ADtGT2*(T«.lNFQCl#GTlJ).A0DRESSj; 

STACKHEAOCGT23 ♦ T.LINK; 
GT1 ♦ GT1*2; 
END UNTIL BOOLEANCT. FORMAL) ENQ STREAMWORDS; 



05228000 T 

05229000 T 
05230000 T 



05231000 
09232000 
05233000 
09234000 
09335000 
09236000 



0J55 

0355 
0355 

0355 
0356 
0357 
0361 
0364 
0366 



PROCEDURE PROGQESCBLORCPRTADR#$AV# SIZE* TYPE); 

VALUE PRTADR'SAV'SUE'TYPE; 
INTEGER PRTADR#SI2E#TYPE; BOOLEAN 5AV; 
BEGIN PRTADR*PRTA0RiC38ll03; 

IF SAV THEN BEGIN PRTCPRTADRJ * < IF TYPE * LDES 
THEN SIZE ELSE CORADR) 

&SlZE[8l38ll0HTYPECl«43l5]8,3[6t46»23' 
IF TYPEXLDES THEN CQRADR*CQRADR*SUEJ 



ELSE 



END 

BEGIN 



PRTCPRTA0R3«"O&0lSKADRC18l33U534SUEC8l38»lO3 
«TYPECli43l5J&U6l46l23; 



0523/000 


T 


0367 


05236000 


T 


0367 


05839000 


T 


0367 


05^40000 


T 


0367 


05241000 


T 


0367 


05242000 


T 


0367 


09243000 


T 


036? 


05844000 


T 


0367 


05245000 


T 


0367 


05246000 


T 


0367 


05247000 


T 


0367 


05847500 


T 


0367 


05846000 


T 


0369 


05246500 


T 


0371 


05249000 


T 


0373 


05850000 


T 


0376 


05251000 


T 


0379 


05252000 


T 


0379 


05253000 


T 


0382 



0lSKA0R«-(SI2E + 29) 01 V 30+DISKA0R; 
END; 

ENO progdescbldr; 



05254000 T 0385 
05254500 T 0367 
05255000 T 0387 



PRTC551) * 



COMMENT 



BOOLEAN 
DOTSYNTAX 



DOTSYNTAX ANALYSES THE SYNTAX 
IT REPORTS IF AN ERROR IS 
LITERALS INVOLVEOJ 
PROCEOURE DOTS YNT AX C FIRST* SECOND); 



OF A PARTIAL WORD DESIGNATOR, 
FOUNO. IT RETURNS WITH THE 



05267000 T 0387 

05268000 T 0387 

05269000 T 0387 

05270000 T 0387 



INTEGER 
BEGIN 
LABEL 



fjrst#secono; 



exit; 



COMMENT if 



comment if 



STEPI 
STEPI 
STEPI 

STEPI 
STEPI 



LFTBRKET then 
LITNO THEN 
COLON THEN 
LITNO THEN 
RTBRKET THEN 



IF 
IF 
IF 
IF 
IF 

tests are passed then syntax is correct; 
if (first * elbatci-3j. address) x 

(second * elbatci»1j,address)*0 then 

if first + second $ 48 then 

tests are passed then ranges of 

go to exit; 

err(u4); comment error if 

dotsyntax * true; exit! end 



T 0387 
T 0387 
T 0387 

********** 



LITERALS ARE O.K.; 

SYNTAX OR RANGE FAILS/ 
DOTSYNTAX; 



05271000 

05272000 

06273000 

START OF SEGMENT 

0S274000 T 0000 

05275000 T OQQJ 

01276000 T 0002 

05277000 T 0004 

05278000 T 0005 

05279000 T 0007 

05280000 T 0007 

01281000 T 0009 

05282000 T 0012 

05183000 T 0014 

05284000 T 0014 

05285000 T 0015 

01286000 T 0015 

38 IS 20 LONG* NEXT SEG 



38 



PRT(552) « RANGE 



BOOLEAN PROCEDURE RANGE ( L0WER*UPPER ) ; 

VALUE LQWER>UPPER; 
HEAL LQWER*UPPeR; 
COMMENT RANGE TESTS THE CLASS 
IT IS GREATER THAN OR EQUAL TO 
UPPER AND SETS RANGE TQ TRUE OR 
CLASS MUST BE IN ELCLASS; 
RANGE*ELCLASS Z LOWER AND ELCLASS S UPPER; 



OF THE ITEM IN ELBATlH TO SEE 

LOWER OR LESS THAN OR E8UAL TO 

FALSE ACCORDINGLY, THE ITEMS 



IF 



05287000 


T 


0387 


05188000 


T 


0387 


01289000 


T 


0387 


05290000 


T 


0387 


05191000 


T 


0387 


05292000 


T 


0387 


05293000 


T 


0387 


01294000 


T 


0387 


05295000 


T 


0387 


05296000 


T 


0387 


05297000 


T 


0387 


05198000 


T 


0387 


01299000 


T 


0387 


05100000 


T 


0387 


05901000 


T 


0387 


05302000 


T 


0387 


05303000 


T 


0387 


01304000 


T 


0387 



COMMENT GET OBTAINS A SYLLABLE FRQm EDqC* THE ARRAY INTO WHICH CODE IS 



05305000 T 0392 



emitted; 
integer p80cedure getcl); value u real li 

8EGIN 

INTEGER STREAM PROCEDURE GETSYL(W'S); VALUE $; 



PRT(553) » GETSYL 



START 



BEGIN DI * LOC GETSYL! Dl * 01*6; 

si ♦ w; si ♦ si+s; si * sj+s; os * 2 chr end; 



05906Q00 
05307000 

05308000 

05309000 
OF SEGMENT 



03V2 
0392 

0392 

0392 



********** 



39 



05310000 T 0000 
05811000 T 0000 



GET*GETSYLUODE< L 01V 4 + 1 ),L. C46 123 j; ENO GET; 



39 



05312000 T 0003 
IS U LONG* NEXT SEG 



COMMENT CALL SWITCH PERFORMS THE FINAL MESS OF GETTING A PROPER DE- 
SCRIPTOR TO THE TOP OF THE STACK; 
PROCEDURE CALLSWITCH(M); VALUE HJ REAL Hj 
PRT(554) ■ CALLSWITCH 

BEGIN EMITVCGNATCH)); EMITQCPRTE); EMITQ(LOD) END CALLSWITCH; 



05313000 T 0392 

05314000 T 0392 

05315000 T 0392 

05316000 T 0392 



PROCEDURE WRITEPRT(PQRS*N,GS); VALUE PORS*N*GS; INTEGER PORS#N#GS; 
PRTC555) « WRITEPRT 

BEGIN 
LABEL EXIT; 



PRTC556) * FILLIT 



STREAM PROCEDURE FILLIT C LI N, PQRS* CELL* N, ID ) ; 

value pors#cell#n; 

BEGIN 

local count; 

LAB?L M0#M1#M2»M3*M4»M5'M6#M7#XIT; 

SI»»LOC PORSI SIMSI + 3; OII»LIn; X "PRT" OR "2>TACK M , 

IF SC«"P" THEN 

begin d$**3 chr; DS1«LIT"( W ; eno 
ELSE BEGIN 

ds»«5 chr; dsi»lit"c w ; su*lqc cell; sihsi+s; 
if sc*"6" then dsi«»2 livf*" else 051*2 lit"f+"j 
cqunti-dii dit«loc cell; di»*0i*4; 
Ds»«u reset; discount; 
end; 
sii»loc cell; su»si+4; tallyi»4j x location. 



05317000 


T 0396 


05316000 


T 0396 


05819000 


T 0396 


05320000 


T 0396 


05321000 


T 0396 


05322000 


T 0396 


05323000 


T 0396 


05124000 


T 0396 


05325000 


T 0396 


0*125010 


T 0396 


05325020 


T 0396 


05325030 


T 0396 


START OF SEGMENT 


********** 


05325040 


T 0000 


05125050 


r oooo 


05325060 


T 0000 


05325070 


r oooo 


05325060 


r oooo 


01325090 


r oooo 


05325100 


r oooo 


05325110 


T 0001 


05325120 


r 0002 


01325130 ' 


r 0002 


05325140 ' 


r 0004 


05825150 ' 


r ooos 


05325160 " 


r 0006 


05325170 ' 


r 0007 


05325180 ' 


r 0007 



40 



PRT(557) 9 

PRTC560) * 

PRT(561) * 

PRT<562) * 



MOJ 



Mil 

M2J 

M3t 

M4I 

*LIST* LABEL* 
M51 

*LIST* LABEL* 
M6» 

*LIST* LABEL* 
M7f 

*LIST* LABEL* 
XITI 



PRT(563) « *LIST* LABEL, 



3UF SC""0" THEN X QONT PRINT LEADING ZEROES. 

BEGIN Slt*5l+i; TALLYIbTALLY*63 END ELSE JUMP OUT?; 

countjstally; osmcqunt chr; tallyi*o; cqunti*tally; 

DS:*4 LIT") * "/ CELll»Di; X SAVE OUR PLACE. 
CIt"CI*NJ 

go mo; 
GO Mi; 

GO M2; 

GO M3; 

GO M4; 

GO M5; 

GO M6; 

GO M7; 

sumd; si»*si+2; oii»luc count; 

di«*di+7; dsj.chr; dh*cell; dsi*cqunt chr; 

go xit; 

0I»«CELL; 0SIB19 LIT W *TEMPQRARY STORAGE*"; GO XITJ 

dii»cell; 
dsib36 lit»*li5t* label* or segment descriptor*"; go xit; 

DUsCELL; D5»»27 LIT M *CASE STATEMENT DESCRIPTOR*"; GO XIT; 
DII»CELL* 0S»«i9 LIT"*FURMAT DESCRIPTOR*"; GO XlTi 

or segment descriptor* 

dilvcelu ds|»24 llt"*outer block descriptor*"; go xiti 

or segment descriptor* 

dh»cell; osi*20 lit**segment descriptor*"; go xit; 

OR SEGMENT DESCRIPTOR* 

DIi*CELL; 0St«18 LIT"*LABEL DESCRIPTOR*"; 

OR SEGMENT DESCRIPTOR* 

END fillit; 

OR SEGMENT DESCRIPTOR* 



05325190 

05125200 
05325210 
05325220 
05325230 
05325240 
05325250 
05325260 
05125270 
05325280 
05325290 
05325300 
05325310 
05325320 
05325330 
05325340 
05325350 

05325360 

05325370 
05325360 
053253V0 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0007 

0008 
0011 
0012 
0013 
0013 
00l« 
0014 
0014 
0014 
0015 
0015 
0015 
0015 
0016 

0018 
0018 
0022 
0023 
0028 
0033 



05325400 T 0037 

05325410 T 0041 

05325420 T 0045 

05325430 T 0048 

05325440 T 0048 



BLANKETU4*L!N)I 



BLANKETU4*L!N); 
IF N*l THEN FILLITCLIN*P0RS*GS*0,ACCUMC13) 
ELSE IF N>1 THEN FILLIT ( LIN* PQRS* GS*0* INFQC N, LINKR* N, LINKC ) i 
ELSE FlLLIT(LlN*PORS*GS*ABS(N)»Nj; 

IF NOHEADING THEN DATIME; WRlTELlNE; 
END WRITEPRT; 



05325450 


T 


0049 


05325460 


T 


0051 


05325470 


T 


0055 


05825480 


T 


0063 


05325490 


T 


0067 


05325500 


T 


0079 



40 IS tfQ LONG* NEXT SEG 



PRTC564) * DOIT 



COMMENT GETSPACE MAKES ASSIGNMENTS TO VARIABLES AND DESCRIPTORS IN 
THE STACK AND PRT, PERMANENT TELLS WHETHER IT IS A 
PERMANENTLY ASSIGNED CELL (ALWAYS IN PRT) OR NOT. NOn 
PERMANENT CELLS ARE EITHER IN STACK OR PRT ACCORDING TO 
MODE. CARE IS TAKEN TO REUSE NON PERMANENT PRT CELL*! 
INTEGER PROCEDURE GETSPACECPERMANENT*L U VALUE PERMANENT*Ll 

BOOLEAN PERMANENT! INTEGER L; 
BEGIN LABEL LJ*L2»EXIT; 

STREAM PROCEOURE 001 TCC» A* I* S); VALUE C*AI 



05326000 

05327000 
05926000 
05S29000 
05330000 
01331000 
01333000 
05334000 
START OF SEGMENT 
05334100 



T 0396 

T 0396 

T 0396 

T 0396 

T 0396 

T 0396 

T 0396 

T 0396 
********** 

T 0000 



«l 



BEGIN LOCAL NJ 



end; 



OI*S; DS*8 LIT" »} 5I«-Sj D3*9 WQS; 

si* i i si*5U2; di*loc n; di*di*7; ds*chr; 

oi»s; si*loc c; 2<ds*4 dec); 

simj si«-si + 3; ds*n chr; 



05134200 
05334300 
05334400 
05334500 
05334600 
05334700 



0000 
0000 
0002 
0003 

0004 
0005 



STACKCF+3) 
STACKCF+4) 

STACK(F+5) 
STACK(F*6) 

STACKCF4-7) 



M 
Q 

ROW 
CQL 
GS 



BOOLEAN m»qj 



INTEGER R0W»C0L»G5i 



IF NOTCSTREAMTOG AND CL£V£L>2 ) )THEN 
IF STEPI*RE10P THEN 
BEGIN 

IF STEPI>IDMAX 
THEN 

BEGIN 

IF ElCtASSsADOP 
THEN 

IF ELBATCn.ADDHESS'SUBOP 

THEN GS*F*ERQ ELSE GS*512 
ELSE 

begin gs*o;i*i-i end; 

if stepi'litnq then flagc51); 

IF ELBATtn«ADDRESSi512 THEN G&M024* 
GS*G5*EL«ATtn. ADDRESS 
END 
ELSE 

BEGIN 

GS*ELBATCI3iADDRESS; 
IF GS*0 THEN FLAGC5U; 
IF GSSFZ&RQ AND GSS1023 THEN GS*-GS; 
IF 5TEPIXADQP THEN IM-1 ELSE 
BEGIN 

stepit; 

GS*ELBATtI3, ADDRESS* 

cif elbatci-13taddress«sub0p 
then -gs else +gs); 
end; 

6S*ABS(GS); 

end; q*gs<si2 or gs>io23; 
go to exit 
end else im-u 
mode * or permanent 
then begin 

if prtimax > 1023 then flagu48); 
if astog then flagc505)/ 

PRTI * 

PRTIMAX*(GS*PRTlMAX)*i; 

IF STUFFTOG THEN IF (MfrUEVEL'l AND KLASSF>19)) OR 
UEVEU3 AND ELBATC I ] .CLASS.LABELID) THEN BEGIN 



IF 



05843000 T 0005 



05344000 T 0005 



05344400 


T 0005 


0}144500 


T 0007 


05344510 


T 0009 


05144520 


r 0009 


05344530 


r ooto 


05*44540 


r ooto 


05344550 


r ooii 


05344560 


r ooii 


05244570 ' 


r ooii 


0534458" ' 


r 0013 


05944590 ' 


r ooi5 


05344600 ' 


r ooi6 


05344610 • 


r ooi8 


05344615 ' 


r 0021 


05144620 ' 


r 0023 


05344630 1 


r 0024 


05344640 ' 


r 0025 


05344650 " 


r 0025 


05344660 1 


r 0028 


05S4466J 1 


r 0029 


05344662 1 


r oo3i 


05344670 1 


r 0034 


05344680 1 


r 0037 


05344690 1 


' 0038 


05344700 1 


r 0038 


05344710 1 


r 0039 


01344720 1 


r 0041 


05344730 1 


r 0044 


05144740 1 


r 0044 


05344750 1 


' 0045 


05344760 1 


0047 


01144770 1 


' 0047 


05345000 1 


0049 


05846000 1 


0050 


05347000 1 


' 005i 


05348000 1 


' 0053 


05349000 1 


0054 


05350000 1 


0054 


05850100 1 


' 0057 


05850120 T 


0060 



IF NUT M THEN 
DQITCIABEU0#G$#INF0CCEIBAUI]},IINKR, 
CELBATCn,lINKC*l)J#THXA[0 3> ELSE 

DOIT( KLASSF,GS» INFO EC LAST INFO* l).LINKR#( LAST I NFO+UiLINKC] 
#TWXACOJ)i WRlTE(STuFF#10*TWXA[*3) END* END 
ELSE BEGIN 

IF STACKCTR > 767 THEN FLAGC149); 
STACKCTR * (GS * STAGKCTRjn; Q ♦ FALSE; 
GO TO EXIT ENDJ 
L2I IF GS i 512 THEN GS «• GS+1024; 

Q * true; 

EXIT! GETSPACE ♦ GS; 

IF GS2NESTCTR AND GS<FZERO THEN NESTCTR*GS*1 ; 

IF GS > 1023 THEN GS * GS-1024; 
IF PRTOG THEN WRlTEPRTCIF Q THEN "PRT » ELSE "STACK", L#B2D(GS> ) ; 
END GETSPACE; 



M IS 



05350140 


T 


0063 


05950160 


T 


0064 


0&I50180 


T 


0067 


05350200 


T 


0069 


05350300 


T 


0074 


05369000 


T 


0079 


05370000 


T 


0080 


05371000 


T 


0082 


05372000 


T 


0084 


05373000 


T 


0085 


05374000 


T 


0087 


05375000 


T 


0088 


05375100 


T 


0089 


05376000 


T 


0093 


05376100 


T 


0095 


05878000 


T 


0100 


1«7 LONG 


if 


NEXT SEG 



PRTC565) * DEPTH 



STACKCF+3) ■ J 

STACKCF+4) s k 

STACKCF+5) * T 

STAcKCF+6) t S 

STACKCF+7) a M 



REAL PROCEDURE OEPTHCI); VALUE II REAL U 



BEGIN REAL J#K#T#S#M; 



05400000 T 0396 

05401000 T 0396 
START OF SEGMENT ********** 



42 



IF 



ELSE 

ELSE 



T*NESTPRTCIJ<0 THEN 

BEGIN 0EPTH*CALLtT.C22ll33-13,C35ll3]; 

IF NESTPRTCl3,C2in*0 THEN NESTCUR*NESTCUR*W 

NESTPRTCI3.C2U3*i; 
END 
IF T.C9tl3J*0 THEN D£PTH*T . C9 1 13 3 

begin m*o; nestprtcu*-t; 
^♦t,c22i133i k*c all c j- 1 3. [221 133; 
for 4 + 4 step i until k do 
if s*0epthccallcj3)>m then m*sj 

M*DEPTH»M*CALLCT,t22U33'13.C35ll33; 
IF NESTCUR^O THEN 
IF NESTPRTU3«C2U3»0 THEN ELSE 
BEGIN T*T4MC9I35U33I NE5TCUR*NESTCUR- 1 ENO 
ELSE T*T8,MC9|35«133; 
NESTPRTCn«-T; 

end; 



end; 



05402000 
05402100 

05402200 
05402300 
05402400 
01403000 
05404000 
01405000 
05406000 
05407000 
05409000 
05409100 
05409200 
0540V300 
01409400 
05409500 
05410000 
054UOO0 



42 IS 56 LONG, 



0000 
0002 

0007 
OOti 
0014 
0014 
0016 
0020 
0026 
0027 
0034 
0040 
004} 

0044 
0047 
0050 
0051 
0051 
NEXT SEG 



PROCEDURE NESTS0RT(L#0j; VALUE L#U; REAL L'U; FORWARD; 
PRT(566) * NESTSORT 

PROCEDURE sortnest; 

PRT<567) • SORTNEST 



Q54U100 T 0396 
05412000 T 0396 



STACKCF+2) a A 

STACKCF+3) » I 

STACK(F*4) * J 

STACKCF+5) a K 

STACK(F+6) * T 

STACK(F+7) s p 
STACK(F+10) s Q 

PRTC570) ■ NESTFORM 



BEGIN ARRAY ACQ'HJ; 



REAL i#4#K*T; 



real p*c; 



STREAM PROCEOURE NESTFORM( I >N>L> A }; VALUE l>Ui 

BEGIN LOCAL 5i 

DI«-Ai 15<0S*8 LIT " ")i 

oi*uoc s; oi*di+7; si*l; si«-si + iq; os«-chr; 
di«-a; di*di*i; a*dij 

DI*DI*6; DS* s chr; 

di*a; si*loc n; os*4 dec; 
di*a; os*3 fill; 

end; 



05413000 T 03V6 
START OF SEGMENT ********** 

05414000 T 0001 



01414100 T 0001 



43 



05415000 T 0001 



05416000 
05417000 
05416000 
05419000 
05420000 
09421000 
05422000 
05423000 



T 
T 
T 
T 
T 
T 
T 
T 



0001 
0003 
0005 
0006 
0007 
0008 
0008 
0009 



FOR I*PRTBASE STEP 1 UnTIl PRTOP DO 
IF NESTPRTm*Q THEN 

BEGIN SQRTPRTCQ]*i; Q*«+l END; 

nestsqrtc0*0>0-1); 

for p*0 step 1 until q do 

begin i*sqrtprtcpj; t*nestprtc 1 3; 

nestfqrmcq#deptm<p*infqct.linkr,t.linkcj#a); 

write(linecdbl3»15»ac*3); 

J*T,C22»133J K*CALLtJ-13.[22ll3]; 
FOR J* J STEP 1 UNTIL K DO 
BEGIN I*CALLCJ3; 

T*NE5TPRTCI]; 

NESTF0RM(32#DEPTH(I),lNF0tT,LlNKR»T,LlNKCJ*A); 

krite(line#15»ac*j)# 

end; 

writeuinecdbl3); 
eno; 
end; 



43 IS 



05424000 


T 


0009 


05425000 


T 


0011 


05425100 


T 


0012 


05425200 


T 


0017 


05425300 


T 


0019 


05425400 


T 


0021 


05426000 


T 


0023 


05427000 


T 


0028 


05428000 


T 


0032 


05429000 


T 


0037 


05430000 


T 


0039 


05430500 


T 


0042 


05431000 


T 


0043 


05432000 


T 


0048 


05433000 


T 


0052 


05434000 


T 


0054 


05435000 


T 


0058 


05436000 


T 


0061 


66 LONG* 


NEXT 5EG 



PROCEDURE NESTSORTCL#Uj; VALUE L*UJ REAL L'UJ 
BEGIN REAL I*J#K,M; 



STACK<F+2) 
STACK(F*3) 
STACK(F*4J 
STACKCF+5) 



I 

J 
K 

M 



05437000 

05438000 
START OF SEGMENT 



T 0396 

T 0396 

********** 



label again#tqp#bqttqm»exit; 

IF L'U THEN 



05439000 T 0000 
05440000 T 0000 



44 



AGAIN! 



TOPt 



BOTTOM! 



EXIT* 



begin m» (u*l) oiv 21 
nestsqrtcL'Mj; 

NESTSORT(M+i*U); 

i*k*l; j»m+i; 

if i>m then go to top* 

if j>u then gu to bqttqm; 

gtl*nestprtcsortprtc 13. c33u5 3 3. link; 

GT2«-NESTPRTCS0RTpRTCJJi[33U5]].UNK; 

IF INF0t6Tl,LlNKR#<GTl*ntUINKC3,ClBl3OU 

INF0CGT2,LlNKR#<GT2+li,LINKC3.tl8!30 3 THEN 

go to bottom; 

SQRTPRT[K3,tl8ll53*5QRTPRT[J}; 
J*J+U 

IF K*K*l$U THEN GO TO AGAIN ELSE GO TO EXIT; 
SQRTPRTCK3,[18li5J«-SQRTPRTCI3J 

im*i; 

if k*k*uu then go to again else go to exit; 
for i»l step 1 until u do 

SORTPRTCI3*SORTPRTtntC18ll53i 

end; 



end; 



05*41000 

05442000 
05443000 
05444000 
05445000 
05446000 
05447000 
05448000 
05449000 
05450000 
05451000 
05452000 
05453000 
05454000 
05455000 
05456000 
05457000 
05458000 
05459000 
05460000 
05461000 



T 

T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



44 IS 46 LONG, 



0000 

0003 
0004 

0005 
0008 
0009 

ooio 

0013 
0016 
0019 
0022 
0023 
0026 
0027 
0030 
0033 
0034 
0037 
0039 
0043 
0043 
NEXT SEG 



COMMENT ROUTINES IN THIS SECTION COMPILE CODE FOR ALL EXPRESSIONS; 
COMMENT AEXP IS THE ARITHMETIC EXPRESSION ROUTINE; 
PROCEOURE AEXP; 

BEGIN 

IF ELCLASS » IFV 

THEN BEGIN IF IFEXP X ATYPE THEN ERRC1Q2) END 
ELSE BEGIN ARITHSEC* SIMPARITH ENO 
END AEXP; 



06000000 
06001000 
06002000 
06003000 
06004000 
06005000 
06006000 
06007000 



0396 
0396 
0396 
0396 
0396 
0396 
0399 
0401 



COMMENT ARITHSEC COMPILES FIRST PRIMARY IN AN ARITHMETIC EXPRESSION, 
IN PARTICULAR IT HANOLES P> +P> -P* AND *P*G WHERE P 
AND ARE PRIMARIES; 

PROCEDURE ARITHSEC, 
BEGIN 

IF ELCLASS * ADQP 

then begin 
stepit; 
if elbatei-utaooress / sub then primary 

ELSE BEGIN 
PRIMARY' 

enotog ♦ linktqg; emitocchs); 
linkt0g «* endtqg; endtog <• false end end 
else primary eno arithsec* 



06006000 T 



06009000 
06010000 
06011000 
06012000 
06013000 
06014000 
06015000 
06016000 
06017000 
06018000 
06021000 
06022000 
06023000 



0401 

0401 
0401 
0401 
0401 
0401 
0402 
0403 
0403 
0406 
0407 
0407 
0409 
0410 



COMMENT SIMPARITH COMPILES SIMPLE ARITHMETIC EXPRESSIONS ON THE 



06024Q00 T 0412 



ASSUMPTION THAT AN ARITHMETIC PRIMARY HAS ALREADY BEEN 
COMPILED. IT ALSO HANDLES THE CASE OF A CONCATENATE 
WHERE ACTUALPARAPART CAUSED THE VARIABLE ROUTINE TO 
COMPILE ONLY PART OF A PRjMARY, MOST OF THE WURK OF 
SIMPARITH IS DONE BY ARITHCOMP* AN ARTIFIAL ROUTINE 
WHICH DOES THE HIERARCHY ANALYSIS USING RECURSION. 
ARITHCOMP IS A SUBROUTINE ONLY TO GET THIS RECURSION* 

PROCEDURE simparith; 



BEGIN 
WHILE 
00 
WHILE 



ELCLASS 9 AMPERSAND 

BEGIN STEPlTi PRIMARY; PARSE END! 

ELCLASS I EQVOP DO ARITHCOMP END; 



06025000 

06026000 
06027000 
06028000 
06029000 
06030000 
06031000 
06032000 
06033000 
06034000 
06035000 
06036000 



0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 

0412 
0412 
0412 
0415 



COMMENT ARITHCOMP IS THE GUTS OF THE ARITHMETIC EXPRESSION ROUTINE 
ANALYSIS, IT CALLS PRIMARY AT APPROPRIATE TIMES AND 
EMITS THE ARITHMETIC OPERATORS. THE HIERARCHY ANALYSIS 
IS OBTAINED BY RECURSION; 

PROCEDURE ARITHCOMP; 

BEGIN INTEGER OPERATOR* QPCLASS; 



06037000 T 0418 



STACKCF+2) 
STACKCF+3) 



OPERATOI 
OPCLASS 



START OF 



DO BEGIN 
OPERATOR * I & ELBATCI3 C36U7I103J 
COMMENT THIS SETS UP THE OPERATOR WHICH WILL BE EMITTED. THE HIGH 
ORDER TEN BITS OF THE OPERATOR ARE LOCATEO IN C 17* 10 J 
OF THE ELBAT WORD; 
OPCLASS * ELCLASS; 

stepit; primary; 

BEGIN 

WHILE OPCLASS < 
COMMENT THE CLASSES ARE ARRANGED 

EMIT(OPERATOR); 
EMITCO); L «■ L-U 
STACKCT «• t; 

end; 
end until opclass x elclass end arithcomp; 



elclass qo arithcomp; 
in oroer of hierarchy; 



45 IS 



06038000 


T 


0418 


06039000 


T 


0416 


06040000 


T 


0418 


06041000 


T 


0418 


06942000 


T 


0418 


SEGMENT 


********** 


06043000 


T 


0000 


06044000 


T 


0000 


06045000 


T 


0002 


06046000 


T 


0002 


06047000 


T 


0002 


06048000 


T 


0002 


06049000 


T 


0002 


06051000 


T 


0003 


06052000 


T 


0003 


06053000 


T 


0006 


06054000 


T 


0006 


06054100 


T 


0007 


06954150 


T 


0009 


06054200 


T 


0009 


06055000 


T 


0009 


14 LONG* 


NEXT SEG 



45 



INTEGER PROCEDURE EXPRSS; BEGIN AEXp; EXPRSS * ATYHE END; 



06057000 T 0418 



PROCEDURE POLISHER(EXPECT); 
BEGIN LABEL EXIT; 



STACKCF+2) 
STACK(F+3) 



■ COUNT 

■ Tl 



LABEL ELI 
REAL C0UNT*T1, 



value expect; real expect; 



T2; 



START 



06060000 
06061000 
OF SEGMENT 
06061900 
06062000 



T 0422 

T 0422 

********** 

T 0000 
T 0000 



46 



STACK(F+«> * T2 

STACKCF+5) * S 

STACK(F+6) ■ 5SS 

STACKCF+7) * Z 

PRTC571) * WRITEOUT 



BOOLEAN Si 

REAL SSS; INTEGER 1} 

STREAM PROCEDURE WHITEQUT<C>N*L); VALUE C#N; 
BEGIN DI * Li OS * 2 LIT "Ss="; 

si * loc c; si ♦ si*7; ds «• chr; 
si «■ loc n; os * dec; 

58(0S*2L1T " "); 

end; 



06063000 T 0000 
06063500 T 0000 

06064000 T 0000 



06065000 
06066000 
06067000 
06067500 
06068000 



0000 
0000 
0001 
0002 
0003 



sss* stackctr; 

IF STEPI X LEFTPAREN THEN GO TO EXIT! 
DO BEGIN 

IF STEP! 2 OPERATORS THEN 

BEGIN Tl ♦ (T2 ♦ ELBATCI])tA0ORESSi 
S ♦ S OR COUNT - T2.CU'3J < 0; 
COUNT ♦ T2,Cl4»2]*C0UNT-2i 
IF ELCLASS 2 OPERATOR THEN 
BEGIN IF Tl * THEN EMITO(TI) 
ELSE BEGIN 

Tl * T2.LINK+2J 
T2 * T2.INCR + TU 
FOR Tl * Tl STEP t UNTIL T2 00 
EMIT(TAKECTl)); 

end; 
end else begin t2 * elclass; 
if stepi f litno then 

begin errc500); go to exit end; 
if t2 * bitop then emitctuc 

C36I42I6]) ELSE 
IF T2 « HEXOP THEN EMITCT1& 

(T2*C OIV 6)[36I45»3J«(C*T2*6) 
C39I45I3J) ELSE 
IF T2 * ISOLATE THEN 
BEGIN T2 * C; 

IF STEPI > LITNO 
THEN BEGIN ERRC50Q); 
GO TO EXIT END; 



EMIT<Z«-CCT24.C-1)DIV 
6+l)x5l2+<48-T2-C)M0D 
37); 

end end; 



6-C DIV 
6x64* 



END 



stepit; 

S * 5 OR COUNT < o; 
ELSE BEGIN 
IF ELCLASS m LABELID 
BEGIN Tl»*2; 



THEN 



06068500 


T 0003 


06069000 


T 0004 


06070000 


T 0006 


06071000 


T 0007 


06072000 


T 0008 


06074000 


T 0010 


06075000 


T 0013 


06076000 ' 


T 0015 


06077000 


T 0016 


06078000 


T 0018 


06079000 


r 0019 


06060000 ' 


r 0021 


06081000 ' 


r 0022 


06082000 " 


r 0024 


06083000 ' 


r 0027 


06064000 ■ 


r 0027 


06085000 1 


r 0028 


06086000 1 


r 0029 


06087000 i 


r 0031 


06088000 1 


r 0033 


06069000 1 


r 0034 


06090000 1 


r 0036 


06991000 1 


r 0039 


06092000 1 


r 004i 


06093000 1 


r 0042 


06094000 1 


r 0043 


06095000 1 


■ 0044 


06096000 1 


• 0045 


06097000 1 


" 0046 


06898000 1 


• 0046 


06099000 1 


• 0046 


06099100 1 


0046 


06099200 T 


0048 


06100000 1 


* 0052 


06101000 1 


0054 


06102000 T 


0054 


06103000 1 


0054 


06104000 T 


0056 


06104100 T 


0056 


06104200 T 


0057 



EH G"U * TAKECT2*GI7CEl-BATCn)H 

PUTCL*T2); 

IF GT4 * THEN GT4 ♦ LJ 
IF <GT4I*L-GT4)0IV 4 2 128 THEN 

BEGIN GT4»»o;FLAGC50);ENO; 
EMIT(GT4x44Tl)i 
STEPIT; 
ENO ELSE 
IF ELCLASS PERIOD THEN AEXP ELSE BEGIN 

T2*o; 

IF 5TEPI*PERI0D THEN 
BEGIN T2*l| STEPIT END; 
IF ELCLASS>IDMAX THEN 

BEGIN ERRC500); GQ TO EXIT END; 
IF ELCLASS * LABELID THEN 

BEGIN Tl ♦ Oi GO TO EL ENQJ 
IF Tl * ElBATCI]. ADDRESS m THEN 

BEGIN ERRUOOj; GO TO EXIT END; 
EMJTl(Tl); 
IF T1>1023 THEN 

if t2*qthen flag(500) 
else emito(prte); 
stepit; 
end; count * count+i; 

END' 

end until elclass * comma; 
if elclass t rtparen then 

begin erru04); go to exit end; 
stepit; 
if false then 

BEGIN COUNT ♦ COUNT-EXPECT; 

WRITEQUTCIF COUNT < THEN "•" ELSE 

IF COUNT * THEN " w ELSE " + ", 

abs(cqunt)'iincoj); 
writeline; 
end; 
exiti stackctr * sss; end; 



46 IS 



06104300 


T 


0058 


06104400 


T 


0061 


06104500 


T 


0062 


06104510 


T 


0064 


06104520 


T 


0066 


06104600 


T 


0066 


06104700 


T 


0070 


06104800 


T 


0071 


06105000 


T 


0071 


06106000 


T 


0073 


06106100 


T 


0074 


06106200 


T 


0075 


06106300 


T 


0077 


06107000 


T 


0078 


06107100 


T 


0079 


06107200 


T 


0060 


06108000 


T 


0082 


06109000 


T 


0084 


06110000 


T 


0086 


06110100 


T 


0066 


06110200 


T 


0087 


06110300 


T 


0089 


061U000 


T 


0091 


06112000 


T 


0091 


06113000 


T 


0093 


06114000 


T 


0093 


06115000 


T 


0094 


06116000 


T 


0095 


06117000 


T 


0096 


06118000 


T 


0097 


06119000 


T 


0097 


06120000 


T 


0099 


06121000 


T 


0101 


06122000 


T 


0103 


06123000 


T 


0105 


06124000 


T 


0115 


06125000 


T 


0115 


120 LONG* 


NEXT SEG 



procedure primary; 
begin label 



LI* 

Lll* 

L21* 

131, 

SWITC 

LI* 

Lll* 

L21, 

L31, 

LABEL 

GO TO 

IF EL 



12, 
L12# 
L22* 
132, 
H S «• 
12, 
L12* 
122* 
L32» 
EXIT 
SCEL 
CLASS 



L3, 14, 

113, L14* 

L23, L24# 

L33, 134, 



15, 
L15, 
125, 
L35, 



L6, L7, 

L16, L17, 

L26, L27, 

L36, L37, 



L3, L4, L5, L6, L7, 

L13, L14, Ll5, L16, Ll7, 

L23, L24, L25, L26, L27, 

L33, L34, L35, L36, L37, 

,rp,ldot,lamper; 
classj; 
* lftbrket then 



START 



L8, L9, LIO, 

LIS, 119, L20, 

L28# L29, L30, 

L38, L39; 

L8, L9, LIO, 

L18, 119, L20, 

L28, L29, L30, 

L38, L39; 



06126000 
06127000 
OF SEGMENT 
06128000 
06129000 
06130000 
06131000 
06132000 
06133000 
06134000 
06135000 
06136000 
06137000 
06138000 
06139000 



T 0422 
T 0422 
********** 



47 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0000 
0000 

0002 
0002 
0002 
0002 
0022 

0022 
0025 



uegin stepit; VARIABLE(FL); 

if tlclass * rtbrket then 

begin err(u8)i gq to exit end; 
stepit; 
GO TO lout; 
lno; 
if eicuass m notop then 
begin stepit; primary; 

emiting; emitco; l*L-i; 
go to exit; 
end; 
if elclass * unknownio then errctoo); 

LllL2»L3lL«*L5lL6lL8lL9lLi0lL12»U13ILl6lLl'IL20lL21IU24lL25»L28lL8»l 
L32« 

£RR(103); GO TO EXIT; 

L7I 

SUBHANDCFAtSE); GO TO LOOT; 
Llll 

impfun; stackct ♦ stackcw; go to ldot; 

L14»H5« 

strmprocstmt; go tu loot; 

L18*L19I 

PROCSTMT(FALSE); GU TO LDOT; 
L22»L23*L26lL27«L30«L3l« 

variablecfp); go tu lamper; 

L33»L3S» 

EMITCQ&ELBATCI) C36I17»10J); 5TEPIT; GO TO LAMPER; 
L34IL36I 

emitnumco; stepit; go to lamper; 

L38I 

PQLISHERU); QO TO LOOT; 
L39» 

STEPITJ primary; stackct ♦ stackct-i; 

EMITOCLOD); GO TO LOOT; 
L37» 

stepit; aexp; 

STACKCT * STACKCT-i; 

IF CLCLASS * RTPAREN THEN 

BEGIN ERRC104J; GO TO EXIT END; 

stepit; 
ldotidot; 

LAMPER! 

STACKCT * STACKCT +U 

WHILE CLCLASS « AMPERSAND 00 

BEGJN STEPIT; PRIMARY; PARSE END; 
EXITI END PRIMARY; 



47 IS 



06140000 

06141000 
06142000 
06143000 
06144000 
06145000 
06146000 
06147000 
06146000 
06149000 
06150000 
06151000 
06152000 
06153000 
06154000 
06155000 
06156000 
06157000 
06156000 
06159000 
06160000 
06161000 
06162000 
06163000 
06164000 
06165000 
06166000 
06167000 
06168000 
06169000 
06170000 
06171000 
06172000 
06172500 
06173000 
06174000 
06174500 
06175000 
06176000 
06177000 
06178000 
06179000 
06179500 
06160000 
06161000 
06182000 
76 LONG, 



0U25 
0027 
0028 
0030 
0030 
0031 
0031 
0031 
0033 
0035 
0036 
0036 
0038 
0039 
0039 

0040 
0041 

0042 
0043 
0045 
0046 
0047 
0047 
0048 
0049 
0050 
0051 
0054 
0054 
0055 
0056 
0057 
0058 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0072 
0074 
NEXT SEG 



prqceouRE impfun; 

BEGIN REAL Tl#T2J 



STACK(F*2) « Tt 
STACK(F+3) » T2 



06183000 

06184000 

START OF SEGMENT 



T 0422 

T 0422 
********** 



Tl ♦ (T2 *• EL8ATtl3)»ADDRESS; 



06185000 T 0000 



48 



pana; 

IF Tl * 
ELSE 
Tl «■ 

72 «• 
FOR 

end; 



END* 



THEN EMITO(TI) 
BEGIN 

T2.UNK + T2.INCR + 1; 
T2.LINK+2; 
T2 * T2 STEP 1 UNTIL 



Tl DO EMIT(TAKE(T2)); 



06186000 
06187000 

06188000 
06189000 
06190000 
06191000 
06192000 
06193000 



0002 
0002 

0004 
0005 
0007 
0009 
OOU 
OOH 



48 IS 17 LONG* NEXT S£G 



STACK(F+2) • Tl 



PROCEDURE SUBHANDCFROMJI VALUE FRQMJ BOOLEAN FROM; 
BEGIN LABEL EXIT; 

REAL !U 

Tl * TAKEFRST; 

if elclass $ su8iq and from then 
begin if stepi t assignqp then 

begin flagc5q3); go to exit end; 

stepit; 

aexp; 

emito(xch); 

GO to exit; 
end; 

EMITLUL*6> DIV 4-CTl . C24| 12]-l ) DIV 4); 

emitb(bbw*bumpl*t1.c36u2 3); 
stepit; 

adjust; 
exit i end subhand; 



START 



06194000 

06195000 

OF SEGMENT 
06196000 

06197000 
06198000 
06199000 
06200000 
06801000 
06202000 
06203000 
06204000 
06209000 
06106000 
06207000 
06208000 
06808500 
06209000 



T 0422 
T 0422 
********** 
T 0000 



49 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
49 IS 19 LONG* 



0000 
0001 
0002 
0003 
0005 
0006 
0006 
0007 
0007 
0007 
OOU 
0014 
0014 
0015 
NEXT SEG 



comment ifexp compiles conditional expressions, it reports the type 

of expressions as exprss reports; 
integer procedure ifexp; 

begin integer t ype'thenbranch* elsebranchj 

stackcf+3) * type 
stackcf+4) « thenbranch 
stackcf+5) m elsebranch 

ifclause; 

STACKCT * 0; 

THENBRANCH * BUMPL; 
COMMENT SAVE L FOR LATER FIXUP; 

IFEXP * TYPE * EXPRSS; COMMENT COMPILE 1ST EXPRSS; 
STACKCT * o; 

elsebranch ♦ bumpl; 

emitbcbfc#th£nbranch,l>; 

if elclass if elsev then errc155) el»e begin 

stepit; 

AEXP; STACKCT * W 

COMMENT THIS COMPILES PROPER TYPE SECOND EXPRSS; 



06292000 T 0422 

06293000 T 0422 

06294000 T 0422 

06295000 T 0422 

START OF SEGMENT ********** 



06896000 T 0000 

06296500 T 0000 

06297000 T 0001 

06898000 T 0003 

06299000 T 0003 

06299500 T 0004 

06300000 T 0005 

06301000 T 0007 

06302000 T 0008 

06303000 T 0010 

06905000 T 0011 

06306000 T 0012 



50 



emitb(bfw»elsebranch,d; 

emjtu); l * l-i; 
comment this is useo by emitlng to cleanup 
bqosec, boocqmp, and relation; 
end eno ifexp; 



CODE, COMPARE WITH 



06307000 
06306000 
06309000 
06310000 

oeiiiooo 



0012 
0013 
0015 
0015 
0015 



50 IS 19 LONG* NEXT SEG 



COMMENT PARSE COMPILES CODE FOR THE CONCATENATE* 

PROCEDURE PftRSEJ 

BEGIN INTEGER F IRST, SECOND#THlRDi 



STACKCF+2) 
STACKCF+3) 

STACKCF+4) 



FIRST 

SECOND 

THIRD 



06312000 T 0422 

06313000 T 0422 

06314000 T 0422 

START OF SEGMENT ********** 



51 



LABEL EXIT; 

IF ELCLASS s 
STEPI m 
STEPI » 
STEPI « 

STEPI 
STEPI 
STEPI 



IF 
IF 
IF 
IF 
IF 
IF 



« 

X 



LFTBRKET THEN 
LITNO THEN 
COLON 
LITNO 
COLON 
LITNO 



x 



THEN 



THEN 
THEN 
THEN 
THEN 
... . ._. . RTBRKET THEN 
COMMENT IF TEST ARE PASSED THEN SYNTAX 15 CORRECT; 

* ELBATCI-5],ADDRESS) x 

* ELBATtI-33, ADDRESS) 

* ELBATU-13, ADDRESS) 
THIRO S 48 THEN 
THIRO S 48 THEN 

COMMENT IF TEST ARE PASSEO THEN RANGES OF LITERALS ARE O.K.; 

BEGIN 

stepit; 

EMITDCSEC0N0>FIR$T#THIRD); 

stackct •■ t; 

GO TO EXIT END; 
ERRU13); COMMENT ERROR IF SYNTAX OH RANGE FAILS; 

end parse; 



IF 



IF 
IF 



(FIRST 
(SECOND 
(THIRD 
FIR5T ♦ 
SECOND* 



EXIT« 



06315000 
06316000 
06317000 
06318000 
06319000 
06320000 
06321000 
06322000 
06323000 
06324000 
06325000 
06126000 
06327000 
06828000 
06329000 
06330000 
06331000 
06332000 
06332500 
06333000 
06334000 
06135000 



51 IS 88 LONG, 



0000 
0000 
0000 
0002 
0003 
0005 
0006 
0008 
0009 
0009 
0012 
0014 
0017 
0019 
0020 
0020 
0021 
0021 

0023 
0023 
0024 
0025 
NEXT SEG 



comment Dot compiles cq^e fqr partial word designators, except for 
those cases handled by the variable routine; 

procedure dot; 

begin integer first, second* label exit; 



$TACK(F+2) * FIRST 
STACK(F+3) « SECOND 



IF ELCLASS s PERIOD THEN BEGIN 

IF D0TSYNTAX(FIRST#5EC0ND) THEN GO TO EXIT* 



emiti(0,fir5t#secqnd); 
stcpit; 



06936000 T 0422 

06337000 T 0422 

06938000 T 0422 

06339000 T 0422 

START OF SEGMENT ********** 



06340000 T 0000 

06341000 T 0001 

06342000 T 0003 

06B43000 T 0003 

06344000 T 0003 

06345000 T 0004 



52 



EXIT* END END DOT; 



06346000 T 0004 
52 IS 8 LONG, NEXT SEG 



PROCEDURE IFCIAUSEJ 

BEGIN STEPIT; BEXP* 

IF ELCLASS * THENV THEN ERRC116)ELSE STEPIT END IFCLAUS; 
COMMENT PANA COMPILES THE CONSTRUCTJ (<ARITt EXP.>); 



06409000 T 0422 

06410000 T 0422 

06411000 T 0424 

06412000 T 0427 



PROCEDURE PANAJ 

BEGIN 
IF STEPI * LEFTPAKEN THEN ERRC105) 

ELSE BEGIN STEPIT* AEXP; IF ELCLASS * RTPAREN THEN 
ERRC1Q4) ELSE STEPIT END END PANA; 



06413000 

06414000 
06415000 

06416000 

06417000 



0427 

0427 
0427 

0429 
0432 



COMMENT BANA COMPILES THE CONSTRUCT! t<ARITH, EXP,>j; 
PROCEDURE SANA; 

BEGIN 
IF STEPI ' LFTBRKfcT THEN ERRU17) 

ELSE BEGIN STEPIT/ AEXP; IF ELCLASS K RTBKKET THEN 
ERRC118) ELSE STEPIT END END BANA i 



06416000 
06419000 
06420000 
06421000 
06422000 
06423000 



0435 
0435 

0435 
0435 
0436 
0439 



COMMENT THIS SECTION CONTAINS TH£ STATEMENT ROUTINES; 

COMMENT COMPOUNOTAIL COMPILES COMPQUNDTAILS, IT ALSO ELIMINATES 

COMMENTS FOLLOWING ENDS, AFTER ANY ERRQK, ERROR MESSAGES 
ARE SUPPRESSED, COMPOUNOTAIL IS PARTIALLY RESPONSIBLE 
FOR RESTORING THE ABILITY TO WRITE ERROR MESSAGES. SQME 



PRT<572) * 



PROCEDURE 
COMPOUNOTAIL 



CARE IS ALSO 
COMPOUNOTAIU 



TAKEN TO PREVENT READING BEYOND THE "END.") 



ANOTHER! 



BEGIN LABEL ANOTHER; 



• BEGINCTR*i; 
COMMENT ALLOW 



START 



THEN STREAMSTMT ELSE 
SEMICOLON THEN GO TO 
ENDV 

GO TO ANOTHER END; 



error messages; 

stmt; 
another; 



I * I-i; BEGINCTR 

errortog * true; 

stepit; 

if streamtog 

if elclass * 

IF ELCLASS * 

THEN BEGIN 

ERRU19); 

endtqg*true; 

do stopdefine*true until 

stepisendv and elclassfcunt ilv 

or not endtog* 
enotog*false; 

if beginctr «• beglnctr-1 * eqv elclass * period 



07000000 

07001000 
07002000 
07003000 
07004000 
07005000 
07906000 

07007000 
OF SEGMENT 
07008000 
07009000 
07010000 
07OHOO0 
07012000 
07013000 
07014000 
07015000 
07016000 
0F017000 
07018000 
07019000 
07820000 
07821000 



0442 

0442 
0442 
0442 
0442 
0442 
0442 



T 0442 
********** 

T 0000 

T 0002 

T 0003 

T 0004 

T 0006 

T 0007 

T 0008 

T 0009 

T 0010 

T 0011 

T 0011 

T 0013 

T 0015 

T 0015 



53 



THEN BEGIN 

IF BEGINCTR » THEN 
BEGIN FLAGC143); BEGINCTR «■ 
FLAG (120); 
FCRl* <(.CRtaMKABSCCBUFF[9]}}-9; 

IF LISTER THEN PRINTCARo; 
FCRl* ClCR««MKABSCTBUFFC93))-9 END; 

IF ELCLASS a PERIOD THEN 
BEGIN 

GTS * *NU;ENO f "&"E"ClU3l53; 
MQVEU*GT5,CBUFFC03); 
LASTUSED*4; 

ELBATU*i-23 *SPECIALt20]; 
ELCLASS «• SEMICOLON END 
END COMPOUNDTAIt; 



i; GO ANOTHER END; 



07022000 
07023000 
07024000 
07025000 
07825010 
07025020 

07025030 
07026000 
07027000 
07928000 

07929000 
07030000 
07831000 
07832000 
07933000 



53 IS 55 LONG* 



0017 
0019 
0019 

0022 
0023 
0026 
0042 
0045 
0045 
0046 
0048 
0049 
0050 
0052 
0053 
NEXT SEG 



REAL axnum; 
PRTC573) ■ AXNUM 

PROCEDURE ACTUALPAKAPART(SBIT#INDEX); VALUE SBIT#lNOEx; 
PRT<574) 9 ACTUALPARAPART 

BOOLEAN SBIT; REAL INDEX; 

BEGIN LABEL EXIT, COMMON* ANOTHER#POL; 

REAL PCTR»SCLASS#ACLASS; 
STACKCF+2) a PCTR 
STACKCF+3) * SCLASS 
STACKCF+4) m ACLASS 

STREAM PROCEDURE WRI TEAXUINE* ACCUM#N# SEO ) * VALUE Hi 
PRTC575) * WRITEAX 

BEGIN Dl * LINE; 15(DS ♦ 8 LIT " " ) ; 

di * line; si * seg; si ♦ si-u; ds ♦ wos; 

DI * DI*4; DS ♦ 20 LIT "ACCIDENTAL ENTRY AT "; 

si * accum; si ♦ si + 3; ds «■ n chr; 
si * seq; di ♦ seg; oi ♦ di-16; ds ♦ wos; 

end; 



start 



07034000 T 0442 
07035000 T 0442 



07036000 
07037000 

OF SEGMENT 
07038000 



T 0442 
T 0442 

********** 

T 0000 



54 



07038100 T 0000 



07038200 
07038300 
07038400 
07038500 
07038600 
07038700 



0000 
0002 
0003 
0006 
0007 
0008 



STACK(F+5) * VBIT 
STACK(F*6) * IDBIT 



boolean vbit#idbit; 



PCTR * i ; 
ANOTHER! ACLASS «■ STEPI&OU? I 47 I U; 
STACKCT ♦ 0; 
GTl ♦ TAKEUNDEX + PCTR); 
VBIT ♦ BOOLEANCGTl.VOj; 
SCLASS «■ GTi l CLASS40[47i47»l3; 
IF VBIT THEN BEGIN AEXPl GO TO COMMON END; 
IF SBIT THEN SCLASS ♦ NAM£lO; 
IDBIT ♦ BOOID < ACLASS AND ACLASS < LABELID; 
IF SCLASS ■ NAMEIO THEN 
BEGIN 



07039000 


T 


0008 


07040000 


T 


0008 


07041000 


T 


0009 


07041200 


T 


0012 


07042000 


T 


0012 


07043000 


T 


0014 


07044000 


T 


0015 


07645000 


T 


0018 


07046000 


T 


0019 


07047000 


T 


0021 


07048000 


T 


0023 


07049000 


T 


0024 



POL J 



IF IOBIT THEN VARI ABLECFL ) 
ELSE 

IF ELCLASS » 
ELSE ERRCIF 
GO TO common; 



POLISHV THEN PQLlSHER(t) 
ELCLASS»0 THEN ELSE 123); 



END) 

IF SCLASS 

IF A 

ELSE 

IF SCLASS 

BEGI 



* REALARKAYIO THEN 
CLASS * REALARRAYID THEN 

BEGIN VARIABLE(FL)i GO TO 
GO TO pol; 

* REALIO THEN 
N FLAGC503)# 

aexp; 

ERRORTOG ♦ TRUE? 

go to common; 



COMMON END 



end; 

GTl «■ TAB 
IF GTi * 
BEGI 



leci+d; 

COMMA OR GTJ » RTPAREN THEN 
N IF IOBIT THEN 

BEGIN IF ACLASS * REALID AND 

BOOLE AN (ELBATU1. FORMAL) THEN BEGIN 

CHECKER (ELBATCiJ)! 

emitpair(elbatci3,a0dres3*l0d); 

stepit; end 

else variable(fl); 

GO TO COMMON end; 
IF ELCLASS S STRNGCON AND ELCLASS > LABELIU 
THEN BEGIN PRIMARY; GO TO COMMON END; 



ENOi 
EMITQCNOP 
SCLASS ♦ 

adjust; 

ACLASS ♦ 
IF IDBIT 
BEGI 



); 
l; 



EMITO(NOP); 



L.C36U03; 
THEN 

N VARIABLECFL); 
IF ELCLASS < AMPERSAND 



THEN GO TO COMMON; 



COMMON! 



simparith; 

END ELSE AEXPi 

if lister then 

begin accumcu ♦ o; 

writeax(linc03*accumcu#q,c12i6), 

infoclastseqrow*lastsequence3); 
writeline; 
end; 

AXNUM ♦ AXNUM+i; 

emitocrts); 

emitbcbfw#sclass#l); 

emitnumcaclass); 

emltpalr(take(proinfo),address»lod); 

EMITO(INX); 
EMITNC512); 
EMITD(33#19*15); 

EMITCQ)! 

EMITD(5#3tn; 

PCTR ♦ PCTR+U 

IF ELCLASS ■ COMMA THEN GO TO ANOTHER; 



07050000 
07051000 
07052000 
07053000 
07054000 
07055000 
07056000 
07057000 
07058000 
07059000 
07060000 
07061000 
07062000 
07063000 
07064000 
07065000 
07066000 
07067000 
07068000 
07969000 
O7Q70O00 
07070500 
07071000 
07072000 
07073000 
07074000 
07075000 
07Q76000 
07077000 
07078000 
07079000 
0708000Q 

07081000 
07082000 
07083000 
07084000 
07084500 
07085000 
07086000 
07086100 
07086200 
07086300 
07086400 
07086500 
07066600 
07086700 
07087000 
07988000 
07089000 
07090000 
07091000 
07092000 
07093000 
07093100 
07093200 
07994000 
07095000 



0024 
0025 
0026 
0028 
0032 
0032 
0032 
0033 
0034 
0036 
0036 
0037 
0038 
0039 
0039 
0040 
0040 
0042 

0043 
0044 
0045 
0047 
0048 
0050 
0050 
0052 
0052 
0053 
0055 
0055 
0037 
0058 
0058 
0059 
0060 
0061 
0062 
0062 
0063 
0064 
0064 
0066 
0068 
0069 
00?9 
0079 
0081 
0081 
0083 
0083 
0085 
0086 
0087 

0088 
0089 
0090 
0092 



EX I T I END 



IF ELCLASS * RTPARtN THEN 

begin £rr(129>; go to exit end; 
if take(index),nq0impart+1 * pctr then 

begin err(128j; go to exit end* 
stepit; 

5TACKCT * 0; 

actual parapart; 



07096000 
07097000 
07Q98000 
07099000 
07100000 
07100500 
07101000 



0093 
0094 
0096 

0098 
0100 
0100 
0101 



54 IS 186 LONG, NEXT SEG 



PROCEDURE PRQCSTMT(FROM); VALUE FROM; BOOLEAN FROM; 
BEGIN 

REAL HOLE, ADDRESS; 



STACKCF+2) * 
STACKCF+3) * 



HOLE 
ADDRESS 



STACKCF+4) • J 



OKI 



PRTC576) • *LIST# 



LABEL, OS 

COMMENT 



COMMENT 



START 



CALLX 
GO TU 



DO 

ok; 



EXIT! END 



real j* label ok; 

label exit; 
scatterelbat; 
hole* elbatci]; 
address * addrsf; 
if nestog then 
if mqde*q then 
if tableci+ijxassignop th£n 
begin for u*callinf0 step 1 until 
if callcu3*address then 

c all ccallx*callx+ 13* address; 
end; 

checkerchole); 
if elclass * procid then 
if not formalf then 
if tableci+1) * assignop then 

begin variablec2-realcfr0m)}; 
segment descriptor* 

call variable to handle this assignment operation; 
if elclass * procid eqv from 

then begin errc159); go to exit enoi 
it is procedure if and only we come from stmt; 
stepit; 
emitocmks); 
if elclass « leftparen 

then actu alpar ap art <false#gitc hole?) 
else if formalf then l «■ l-l 
else if takecgltchqle))tnqdjmpart*'q then err(128>; 

EMlTVCADDRESSj; 

procstmt; 



go to exit end; 



55 IS 



07391000 


T 


0442 


07392000 


T 


0442 


07893000 


T 


0442 


OF SEGMENT 


********** 


07393100 


T 


0000 


07394000 


T 


0000 


07395000 


T 


0000 


07396000 


T 


0000 


07397000 


T 


OOOi 


07397100 


T 


0002 


0F997200 


T 


0002 


07997210 


T 


0003 


07397300 


T 


0006 


07897400 


T 


0006 


07897500 


T 


0014 


07397600 


T 


0018 


07398000 


T 


0019 


07399000 


T 


0019 


07400000 


T 


0020 


07401000 


T 


0021 


07402000 


T 


0023 


07403000 


T 


0028 


07404000 


T 


0026 


07405000 


T 


0029 


07406000 


T 


0031 


07407000 


T 


003J 


07408000 


T 


0032 


07409000 


T 


0032 


07410000 


T 


0033 


07411000 


T 


0035 


07412000 


T 


0037 


07413000 


T 


0042 


07425000 


T 


0042 


S 46 LONG 


i# 


NEXT SEG 



bb 



procedure strmprqcstmt; 

BEGIN REAL WHQLE#FlX,Ti; 



07426000 

07427000 
START OF SEGMENT 



T 0442 

T 0442 

********** 



56 



STACKCF+2) » WHOLE 
STACKCF+3) * FIX 
STAGKCF+4) * Tl 



WHOLE * ELBATtI]; FIX * -1/ 

IF ELCLASS * STRPROCID THEN EMIT(O); 

IF WHQLE, LVL * 1 THEN 

BEGIN FIX ♦ L' L * L*l END; 
EMlTQlMKS); 
Tl «■ TAKEFRST.C1I6JJ 

FOR 6T1 ♦ 1 STEP 1 UNTIL Tl DO EMITCO); 
IF STEPI * LEFTPAREN THEN ERRC128) 
ELSE BEGIN ACTUALPARAPARTC TRUEfGI TC WHOLE) ); 
IF FIX < THEN EMITVCWHQLE t ADDRESS > 
ELSE BEGIN Tl * U L «■ FIX/ 

WHOLE ♦ TAKE(GlT(WHOLE))i 
EMITNUM(T1*2-WH0LE,C16I123)J 
L * ti; 

EMITBCBBW,8UMPL*WH0LE,C28I12ni 



END END 



end; 
strmprocstmt; 



07428000 
07429000 
07430000 
07431000 
07432000 
07433000 
07434000 
07435000 
07436000 
07437000 
07438000 
07439000 
07440000 
07441000 
07442000 
07443000 
07444000 
07445000 
07446000 



56 IS 33 LONG* 



0000 
0000 
0000 
0002 
0004 
0005 
0007 
0008 
0010 
0014 
0015 
0018 
0019 
0022 
0024 
0026 
0027 
0030 
0030 
NEXT SEG 



INTEGER PROCEDURE BAE; 
BEGIN BAE 



* bumpl; constantclean; adjust end bae; 



07458000 T 0442 
07459000 T 0442 



PRTC577) « DOSTMT 



STACKCF+2) * TL 



comment relsestmt compiles the release statement; 

comment dostmt handles the do statement; 
procedure dbstmt; 



BEGIN INTEGER TL* 



FOULED «■ L; 



stepit; tl*l; stmt; if elclass * untilv then err(13d 
else begin 
stepit; bexp; emitbcbbc,bumpl*td end 
end dostmt; 



07460000 T 0447 

07481000 T 0447 

07482000 T 0447 

07483000 T 0447 

START OF SEGMENT ********** 

07483500 T 0000 

07484000 T 0000 

07485000 T 0000 

07486000 T 0004 

07487000 T 0005 

07488000 T 0008 

57 IS 11 LONG, NEXT SEG 



57 



COMMENT WHlLESTMT COMPILES THE WHILE STATEMENT! 
PROCEDURE WHlLESTMT; 
PRH600) * WHlLESTMT 

BEGIN INTEGER BACK, FRONT; 

STACK(F*2) * BACK 



07489000 T 0447 

07490000 T 0447 

07491000 T 0447 

START OF SEGMENT ********** 



58 



STACK(F+3) * FRONT 



FOULED ♦• It 

stepit; back * l; bexp; front * bumpl; 
if elclass * oov then errc132) else 
begin stepit; stmt; emitb( bbw, bumpl# back } ; 
constantcleani emi tbc bfc'fr0nt#l > eno end 





07491500 T 


0000 




07492000 T 


0000 




07493000 T 


0000 




07494000 T 


0004 




07495000 T 


0006 


whilestmt; 


07496000 T 


0010 



58 IS 14 LONG* NEXT SEG 



PRTC601) * GOSTMT 



STACKCF+2) « ELBW 



COMMENT GOSTMT COMPILES GO TO STATEMENTS, GOSTMT LOOKS AT THE 
EXPRESSION, IF IT IS SIMPLE ENOUGH WE GO DIRECTLY, 
OTHERWISE A CALL ON THE MCP IS GENERATED IN ORDER TO 
STORAGE RETURNED, SEE DEXP AND GENGQ; 

PROCEDURE GOSTMT; 



GET 



BEGIN 



REAL ELBWJ 



LABEL GQMCP>EXIT; 

IF STfcPI * TOV THEN STEPITJ 

IF ELCLASS * LABELID THEN TBI * TRUE 

ELSE IF ELCLASS * SWITCHlD THEN TBI * FALSE 

ELSE BEGIN IF ELCLASS m PQLISHV THEN 

BEGIN POLISHERCl); EMITOCBFW) END 

ELSE ERRC50J); 

GO TO EXIT 
ENDJ 

IF NOT LQCAL(ELBATEIJ) THEN 
BEGIN 

IF TBI THEN 

BEGIN EMlTV(GNAT(ELBATCn>)J 

emito(bfw); 
stepit; 

GO to exit eno; 
begin err(501>; go to exit end; 
end; 
if tbi then begin gqgencel8atc u #bfw); stepit; 

constantclean; go exit end 
else begin 

elbw ♦ elbatcij; 

bana; 

emitqcdup); 

emitocaoo); 

emitocbfw); 

GT3 * TAKECGT«*aiT(ELBW))+GT4; 
FOR GT4 ♦ GT4+1 STEP 1 UNTIL GT3 00 
G0GEN(TAKE(GT4),BFW); 



EXIT» END 



eno; 
gostmt; 



07497000 


T 0447 


07498000 


T 0447 


0749V000 


T 0447 


07S00000 


T 0447 


07101000 


T 0447 


07502000 


T 0447 


07503000 


T 0447 


START OF SEGMENT 


********** 


07S04000 


r oooo 


07S05000 


r oooo 


07106000 * 


r 0002 


07107000 ' 


r 0003 


07511000 ' 


r 0006 


07112000 ' 


r 0007 


07113000 ' 


r 0009 


07514000 ' 


r oou 


07515000 1 


r oou 


07|16000 1 


r oou 


07516100 1 


r 0012 


07516200 1 


r ooi3 


07|16300 1 


' 0013 


07516400 1 


r 0015 


07516500 1 


r 0016 


07516600 1 


• 0016 


07517000 1 


' 0017 


07517500 1 


• 0018 


07518000 1 


' 0018 


07519000 1 


' 0021 


07520000 1 


0022 


07521000 1 


0022 


07122000 1 


0023 


07523000 1 


0023 


07524000 1 


0024 


07525000 T 


0024 


07526000 1 


0025 


07127000 1 


0026 


07528000 T 


0029 


07529000 T 


0033 


07530000 T 


0035 


07531000 T 


0035 


59 IS 39 LONG, 


NEXT SEG 



59 



PROCEBijRE G0GENCLABEl.8AT*eRANCHTYPgj; 

VALUE LABEL8AT#BRANCHTYPE; 

real labelbat#branchtype; 

BEGIN 

IF B00LEAN(GTl*TAKE(GT2*GIT(LABELBAT))).tl»U 
THEN EMITBCBRANCHTYPE,BUMPl>GTi,[36U2]) 
COMMENT LABELR SETS THE SIGN OF THE ADDITIONAL INFO FOR A 
NEGATIVE WHEN THE LABEL IS ENCOUNTERED. SO THIS 
THAT WE NOW KNOW WHERE TO GO; 

ELSE BEGIN EMlTCGU); EMIT CBRANCHT YPE ); 
PUTCGTHLC36I36U23»GT2) END END GOGEN; 



LABEL 
MEANS 



07535000 
07536000 
07537000 
07538000 
07139000 
07540000 
07541000 
07542000 
07543000 
07544000 
07545000 



0447 
0447 
0447 
0447 
0447 
0450 
0453 
0453 
0453 
0453 
0456 



COMMENT SIMPGO IS USEO ONLY BY THE IF STMT ROUTINE, IT DETERMINES IF 

A STATEMENT IS A SIMPLE GO TO STATEMENT! 
BOOLEAN PROCEDURE SIMPGO; 
BEGIN LABEL EXIT; 



07546000 T 



IF ELCLASS * 

THEN BEGIN 

IF ST6PI 

IF 

IF 



GOV 



EXITI END SIMPGO; 



tov then stepit; 
elclass a labelid then 
localcelbaui]) then 
begin simpgo * true; go exit end* 

I * I-i; ELCLASS * GOV END; 



0456 

0458 
0458 
0458 

START OF SEGMENT ********** 

0000 
0000 
0001 

0003 
0004 
0005 
0007 
0009 
60 IS 13 LONG* NEXT SEG 



07547000 
0*548000 
07549000 



07550000 
07*51000 
07552000 

07553000 
07954000 
07155000 
07556000 
07557000 



60 



STACKCF+2) * Tl 
STACKCF+3) « T2 



C0MMENT IFSTMT COMPILES IF STATEMENTS, SPECIAL CARE IS TAKEN TO 

OPTIMIZE CODE IN THE NEIGHBORHOOD OF THE JUMPS, TO SOME 
EXTENT SUPPERFULOUS BRANCHING IS AVOIDED; 

PROCEDURE IFSTMT; 

BEGIN REAL U#T2; LABEL EXIT; 



ifclause; 
if simpgo 
then begin 

Ti * ELBATtU' 

if stepi * elsev 
then begin 
stepit; 
if simpgo 
then begin 
gogen(elbatcu#bfc); gqgenh 1,bfw ); 
stepit; go to exit end else begin emitlng;gqgencti#bfo; 
stmt ; go to exit end end ; 
emitlng; gogen(ti#bfc>; 
go exit end' 
ti ♦ bumpli stmt; 
if elclass t elsev then 



07558000 T 0458 

07559000 T 0458 

07560000 T 0458 

07561000 T 0458 

07562000 T 0458 
START OF SEGMENT 



********** 



61 



07563000 T 0000 

07564000 T 0000 

07565000 T 0000 

07566000 T 0001 

07167000 T 0002 

07168000 T 0003 

07169000 T 0004 

07170000 T 0004 

07171000 T 0004 

07572000 T 0005 

07573000 T 0007 

07574000 T 0010 

07575000 T 0011 

07176000 T 0013 

07*77000 T 0013 

07578000 T 0016 



EXIT! END 



BEGIN IF L"T1>1023 THEN ADJUST; EMITB (BFC*T i*L ); 
GO EXIT ENOi 

stepit; 
if simpgo 
then begin 

T2 ♦ i; t *Tl-2;G0GEN(EUBATCn#BFC)i L ♦ T2; 

stepit; go exit end; 
T2 ♦ bumpl; cqnstantclean; 
if l-tt>1023 then adjust; emitbcbfc*t1*l )i stmt; 
if l-t2m023 then adjust; emitb (bfw* t2#l )i 
ifstmt; 



07579000 
07579100 
07580000 
07581000 
07162000 
07583000 
0758*000 
07985000 
07585100 
07586000 
07187000 



61 IS HI LONG* 



0016 
0020 
0021 
0021 
0021 
0022 
0026 
0027 
0030 
0034 
0037 
NEXT SEG 



PRTC602) * LABEL* 



COMMENT LABELR HANDLES LABELED STATEMENTS, IT PUTS L INTO THE 

ADDITIONAL INFO AND MAKES ITS SIGN NEGATIVE, IT COMPILES 
AT THE SAME TIME ALL TH£ PREVIOUS FORWARD REFERENCES SET 
UP FOH IT BY GOGEN. (THE ADDITIONAL INFO LINKS TO A LIST 
IN THE CODE ARRAY OF ALL FORWARD REFERENCES)* 

PROCEDgRE LABELR; 

BEGIN LABEL EXIT* ROUND; 



DEFINE ELBAtw0RD*RR9#,LINK«Gt2##INDEXsGt3#,A0DItI0NAL 

*GTft«*NEXTLINK»QT5#; 
REAL ULDL* 



STACKCF+2) m OLDL 



DO BEGIN OLDL + Li 

IF STEPI t COLON THEN 

BEGIN ERK(l33j; GO TO EXIT END; 
IF NOT LOCALtELBATWORD * ELBATCI-13) 

THEN BEGIN FLAGU34); GO TO ROUND ENOJ 
IF STEPI * COLON THEN 

BEGIN I ♦ I-i; ADJUST END ELSE 
IF ELCLASS » LITNO THEN L * 4xc ELSE 
IF ELCLASS«ASTRI5K THEN 

BEGIN IF MODE ^ OR ASTQG THEN 
FLAGC505); 

astqg * true; 

L * 4XPRTI; 
ENO ELSE 

I * i-2; 

IF STEPI * COLON THEN 

BEGIN ERR<133)1 GO TO EXIT END; 
If L < OLDL THEN 

BEGIN FLAGC504); GO TO ROUND END; 
GT1 * TABLECI*1); 

LINK * (ADDITIONAL ♦ TAKECINOEX * GITCELBATWQRD) ) ) 

,[361123; 
IF ADDITIONAL < THEN 

BEGIN FLAGC135); GO TO ROUND ENO* 
FOULED * L) 

IF TABLEU + l) * COLON THEN 
BEGIN 

IF LINK*0 THEN BEGIN OLDL * Li 



07588000 


T 0458 


07-589000 ' 


r 0458 


07590000 


r 0458 


07591000 ' 


r 0458 


07592000 


r 0458 


07593000 ' 


r 0458 


07594000 ' 


r 0458 


START OF SEGMENT - 


***##*##*# 


07595000 • 


r oooo 


07596000 ' 


r oooo 


0F19650Q • 


r oooo 


07597000 1 


r oooo 


07597500 1 


r oooo 


07S98000 1 


r oooi 


07599000 1 


r ooos 


07600000 1 


r 0004 


07600100 1 


r 0007 


07600200 1 


r ooos 


07600300 1 


r ooio 


07600400 1 


r 0013 


07100410 1 


r 0015 


07600420 1 


r ooi6 


07600430 1 


r ooi8 


07600440 1 


r ooi8 


07*00450 1 


r 0020 


07600500 1 


r 0020 


0F6006OO 1 


r 0021 


07600700 1 


r 0022 


07600800 ] 


r 0024 


07600900 1 


r 0025 


07600950 1 


0027 


07601000 1 


0028 


07602000 1 


' 0030 


07603000 1 


' 0032 


07604000 1 


0032 


07604010 1 


0034 


07604020 1 


0035 


07604030 1 


0037 


07604040 T 


0037 



62 



DO BEGIN NEXTLINK * GEHL1NK); 

i ♦ link; 

IF 0LDL,C36«10J-L,C36U0J2128 
THEN FLAGC50) ELSE 
EMIT(0LDL-LINK&0C46146»2]+ 

0&NEXTLINKC46M6I23 + 3072); 

L ♦ L"U 

end until link*link-nextlink div 4«l; 

l ♦ olol; end; stepit; 

do if stepi s strngcqn and elclass 2 
nqnlitnq then emitwurdcc) 
else begin errc500); i ♦ 1-1 end 

until stepi k comma; 

i ♦ 1-1 ; 

END ELSE 
WHILE LINK X 

DO BEGIN 

NEXTLINK ♦ GETCLINK-2); 
IF L-LINK>1023 THEN ADJUST; 
EMITBCGETCLINK-l)'LINK#L); 
LINK ♦ NEXTLINK END; 
PUT C -ADD IT IQNAL&L C 36 | 361123* INDEX); 
ROUNDI ERRQRTQG *■ TRUE END UNTIL STEPI X LABELIO; 
EXITl END LABELR; 



62 IS 



07604050 
07*04060 
07604067 
07604068 
07604070 
07604080 
07604085 
07604090 
07*04100 
07604110 
07604120 
07604130 
07604140 
07604150 
07604160 
07605000 
07606000 
07607000 
07607100 
07*08000 
07609000 
07610000 
07645000 
07646000 
84 LONG* 



0039 
0041 
0042 
0043 
0045 
0048 
0050 
0051 
0054 
0055 
0057 
0058 
0063 
0064 
0065 
0065 
0067 

0068 
0070 
0072 

0074 
0075 
0078 
0080 
NEXT SEG 



PROCEDURE FILLSTMTCSIZEJ' VALUE SUE* INTEGER SIZE; 
PRTC603) * FILLSTMT 

BEGIN 
COMMENT "COCT" PERFORMS THE OCTAL CONVERT FOR THE FI 
IF THERE ARE ANT NON-OCTAL OIGlTS* THIS PRQC 
A ZERO AND THEN THE 3 LQW-QROER BITS OF THE 
RESET AND IGNOREO AND ERROR NUMBER 303 IS PR 
ALLOWS FLAG 8ITS TO BE SET* WHEREAS "QCTIZE* 
N NUMBER OF CHARACTERS TO BE CONVERT 
SKBIT NUMBER OF BITS TO SKIP BEFORE STAR 
THIS IS BECAUSE THE NO. OF CHARS, 
8 AND IT MUST BE RIGHT-JUSTIFIED I 
ACC ADDRESS OF THE ACCUM WHERE ALPHA I 



07647000 T 0458 



LL STATEMENT, 
EUURE RETURNS 
BAD DIGIT ARE 
INTED* "CQCT" 

OOES NOT, 
EO. 

TING CONVERSION* 
MAY BE LESS THAN 
N CDCCQQEFILE). 
NFQ IS KEPT t 



PRT(604) » COCT 



REAL STREAM PROCEOURE COCTC N# SKBi T*ACC*CD ); VALUE N#5KBIT; 



BEGIN 

SII"ACC; SJI»SI*6J DIt»CD; 0St«8 LIT"Q000QOQQ w ; 

Dinco ; skip skbit db;tallyi«i; 

N(IF SC>"7"THEN TALLYIsO; SKIP 3 SB; 

3CIF SB THEN DS!*1 SET ELSE SKIP 1 OB; SKIP 1 SB)); 
COCTI*TALLY 

END coct; 



07647500 


T 


0458 


07648000 


T 


0458 


07648500 


T 


0458 


07649000 


T 


0458 


07*49500 


T 


0458 


07650000 


T 


0458 


07650500 


T 


0458 


07651000 


T 


0458 


07*51500 


T 


0458 


07*52000 


T 


0458 


07652500 


T 


0458 


07653000 


T 


0458 


07653500 


T 


0458 


START OF SEGMENT 


******* 


07*54000 


T 


0000 


07*54500 


T 


0000 


07655000 


T 


0002 


07655500 


T 


0003 


07656000 


T 


0005 


07656500 


T 


0007 


07657000 


T 


0007 



63 



REAL T2; 



07657500 T 0008 



STACK(F+2) * T2 



PRT<605) » ZEERO 



LABEL LU 

STREAM PROCEDURE ZEERQ(D); 

BEGIN 

oi»*oiDst»e lit"ooooooqq"; 

SI J»0;31C32CDSI»WDS)); US»b30 WDSJ 
END ZEERO; 



07658000 T 0008 

07658500 T 0008 

O765V0O0 T 0008 

07*59500 T 0009 

07*60000 T 0010 

07660500 T 0012 



STREAMT0Gt»800LEAN(2); 
SEGMENTSTARTCTRUE); 

IF STEPIXASSIGNQP THEN ZEERQC CODE( 1 > ) 
ELSE BEGIN 

FOR T2t*l STEP 1 UNTIL SIZE DO 
BEGIN 

IF STEPI>IDMAX THEN 
BEGIN 

IF ELCLASS/llTNO AND ELCLASS^NONL ITNO THEN 
IF ELCLASS^STRNGCON THEN 
IF ELCLASSsADQP ANO 

(STEPI«NONl.ITNO OR ELCLASS*LITNO) THEN 
CI*C & ELBAT[I-init21»l] 
ELSE BEGIN ERR0RC302); GO TO LI END; 
IF ELCLASS»STRNGCON AND CQUNT*8 THEN 

M0VECHARACTERS(8,ACCUMCU#3#C0DECT2)#0J 
ELSE MQveCl>C#C0DECT2)> 
END 
ELSE IF C0UNTS19 AND ACCUMC1 ]« [ lit 18]a«0CT" TM|N 
BEGIN 
IF CQCT<CQUNT-3»48-(CQUNT-3)x3>ACCUM|;iJ# 

C0DE(T2))«0 THEN FUAGC303) 
END 

else begin errqrc302); gq to li end * 

if stepi*c0mma then go to ll 

end; 

ERR@RC5<0' 

end; 

LU 

RIGHT(SlZEx4>; 

streamto«*»false; 

segmentcsize'o)/ 

pr0gde scbldrcaddrsf' true* si ze» ddes}; 

end fulstmt; 



63 IS 



07661000 
07661500 
07662000 
07662500 
07663000 
07663500 
07664000 
07664500 
07665000 
07665500 
07666000 
07666500 
07667000 
07667500 
07668000 
0F668500 
07669000 
07669500 
07670000 

07670500 
07671000 
07671500 
07672000 
07672500 
07673000 
07673500 
07674000 
07*74500 
07675000 
07675500 
07676000 
07676500 
07677000 
07677500 
72 LONG* 



0012 
0013 
0014 
0019 
0020 
0021 
0021 
0022 
0022 
0024 
0025 
0026 
0029 
0031 
0033 
0035 
0040 
0044 
0045 

0048 
0048 
0052 

0057 
0057 
0060 
0061 
0064 
0064 
0064 
0065 
0066 
0067 
0068 
0069 
NEXT SEG 



PROCEDURE STMT; 

BEGIN LABEL 



Ll' L2, L3# 


L4# 


L5# L6» 


L7# 


L8, 


L9, 


L10, 


HI/ L12, L13, 


Ll«» 


L15, 116, 


L17, 


L18# 


L19, 


L20, 


L21# L22# L23, 


L2<*> 


L25# 126, 


L27, 


L28# 


L29, 


L30, 



07711000 
07712000 
START OF SEGMENT 
07713000 
07714000 
07715000 



T 0458 

T 0458 
********** 

T 0000 
T 0000 
T 0000 
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L31/ L32/ L33, L 3 4/ L35/ 136, 


L37, L38/ 


L39, 


L«0, 


07716000 


r oooo 




L41/ L42/ L43/ 144/ L45, l46# 


L47/ L48/ 


L49, 


L50/ 


07717000 


r oooo 




L51/ L52/ L53, L54; 








07718000 


r oooo 




SWITCH S ♦ 








07719000 


r oooo 




Li/ L2/ L3/ L4# L5/ L6/ 


L7/ L8/ 


L9/ 


LiO, 


07720000 


r 0002 




Lll/ L12/ L13, L14/ Li5, L16, 


L17/ L18/ 


L19, 


L20/ 


07721000 ' 


r 0002 




L21/ L22/ 123/ 124/ (.25/ 126, 


L27, L28/ 


L29/ 


L30/ 


07722000 


T 0002 




L31/ 1.32/ 133, 1,3*' L35, ^36/ 


L37, L38, 


L39, 


L<»0, 


07723000 ' 


r 0002 




141/ 142/ U3/ L44/ 145/ L46/ 


L47/ L48/ 


L49/ 


L50* 


07724000 " 


r 0002 




151/ L52, L53, 154/ 








07725000 • 


r 0002 




LABEL AGAIN, EXITi 








07726000 " 


r 0030 




STACKCT * 0} 








07726990 


r 0030 


AGA INI 


GO TO StELCLASS); 

IF ELCLAS5 a COLON THEN 

BEGIN STEPIT; GTl * L* 








07727000 " 
07727010 ' 
07727020 • 


r oosi 

r 0034 
r 0034 




IF ELCLASS * COLON ' 


rHEN 






07727030 i 


r 0036 




BEGIN adjust; 


I * 1-1 END 




07727040 ■ 


r 0037 




ELSE IF ELCLASS m LlTNO THEN L * 4XC 


07727050 1 


r 0039 




ELSE I ♦ I-U 








07727060 1 


r oo4i 




IF L < GTl OR STEPI 


* COLON THEN 




07727070 1 


r 0044 




BEGIN ERRC504) 


S GO TO EXIT END; 


07727080 1 


r 0046 




stepit; 








07727090 1 


r 0048 




go to again; 








07727100 1 


r 0048 




end; 








07727110 1 


r 0049 




IF ELCLASS ■ THEN FLAGUOO), 


\ FLAGU45); 




07728000 1 


' 0049 


L1'L2«l3»L4I 


lL5lL6*L9»LU»Ll3«Ll4'Ll5iui6Ji.i7lL20fL21> 


L25JL28IL29IL24I 


07729000 1 


r oosi 


L33»L34»L35> 


L36JL37IU39I 
ERRC144); GO TO EXIT; 








07730000 1 
07732000 1 


' 0052 
r 0052 


L7»L8I 


SUBHANOCTRUE); GO TO EXIT; 








07732000 1 
07733000 1 


r 0053 
r 0054 


L10IL18IL191 








07734000 1 


r 0055 




PROCSTMTCTRUE); GO TO EXIT* 








07735000 1 


• 0056 


LlSt 


strmprqcstmt; go to exit; 








07736000 1 
07737000 1 


r 0057 
' 0058 


L22IL231L26IL27*L30IL31I 








07738000 1 


r 0059 




VARIABLE(FS); GO TO EXIT; 








07739000 1 


f 0059 


1321 


labelr; go to again; 








07740000 1 
07741000 1 


r 0060 
r 0061 


L38J 


P0LISHER<0); GO TO EXIT; 








07742000 1 
07743000 1 


r 0062 
' 0062 


140 J 










07744000 1 


r 0063 




IF ELBATCHiAODRESS « STREAMY 


THEN 






0F745Q00 1 


r 0064 




BEGIN INLINE; GO TO EXIT 


end; 






07746000 1 


' 0065 




FLAGC146); 








07*47000 1 


r 0067 




IF TABLEU-2) * ENDV AND MODE 


> THEN 






07748000 1 


0067 




BEGIN I * 1-2; ELCLASS ♦ 


ENOV; GO TO EXIT END; 


07749000 1 


• 0070 




i ♦ i*i; errortog * true; blockcfalse); 






07750000 1 


' 0073 




ELCLASS ♦ TABLE(I*I-ii; GQ TO 


exit; 






07751000 1 


' 0076 


L42J 


dblstmt; go to exit; 








07752000 1 
07753000 1 


' 0079 
0079 


L43I 


fqrstmt; go to exit* 








07754000 1 
07755000 1 


0080 
' 0080 


U44I 


whilestmt; go to exit; 








07756000 1 
07F5700Q 1 


' 0081 
' 0081 


L45t 


dqstmt; go to exit* 








07758000 1 
0?F59000 1 


' 0082 
0082 


L51I 










07760000 1 


0083 



1521 
1531 
L541 



ifstmt; go to exit; 
gostmt; go to exit* 
iqstmt; go to exit; 



if stepi « declarators then 

BEGIN 

IF ELBATCI3, ADDRESS * STREAMV THEN IF STEPI 
UEFTPAREN THEN 
BEGIN 

ELCLASS*TABLE(I«-I-n ; 

COMPOUNDTAIL ; 

GO TO EXIT ; 
END ELSE I * I • U 

I «• I - i; 

blockcfalse); end else cqmpuunotail; 

L46IL47»L*8»L50» 

L49»L4l« 

EXITI END STMT; 







07761000 


T 


0083 






07762000 


T 


0084 






07763000 


T 


0084 






07764000 


T 


0085 






07765000 


T 


0085 






07766000 


T 


0086 






07767000 


T 


0086 






07768000 


T 


0087 


% 


6 


07768100 


T 


0087 


% 


6 


07768110 


T 


0090 


% 


6 


07168120 


T 


0090 






07168130 


T 


0091 






07768140 


T 


0093 






07768160 


T 


0093 


% 


6 


07768170 


T 


0094 


X 


6 


07768180 


T 


0096 






07768200 


T 


0097 






07769000 


T 


0099 






07770000 


T 


0099 






07771000 


T 


0099 






64 IS 100 LONC 


*t 


NEXT SEG 



proceouRe iqstmt; 

if stepi * litno or cgtuel8atci],address)>15 then err(98)else 

BEGIN EMlTCELBATU-l).ADDRESS4GTlt41l47llUGTU36l44l3j;; 
STEPIT 

END scope statement; 



07991000 
07993000 
07994000 
07995000 
07996000 
07997000 



0458 
0458 
0458 
0463 
0468 
0468 



PRTC606) 
PRTC607) 
PRTC610) 
PRTC611) 
PRT(612) 
PRT(613) 
PRT<614) 



PROCEDURE FORSTMT; 
BEGIN 
OWN REAL B#STMTSTART#REGO,RETURNSTORE#ADDRES*V#VRET> 



* STMTSTART 

* REGO 

* RETURNSTQRE 

* ADDRES 

* V 

* VRET 



08006000 

08009000 

08010000 

START OF SEGMENT 



T 0468 

T 0468 

T 0468 
********** 



65 



PRTC615) « BRET 



PRT(616) 
PRTC617) 

PRTC620) 
PRTC621) 



SIGNA 
SIGNB 
SIGNC 
INT 



bret; 
own boolean signa,signb*signc# int# 



PRTC622) * C0NSTANA 
PRTC623) * CONSTANB 
PRTC624) ■ CONSTANC 



CONSTANA, CONST ANB*CONSTANC; 



08011000 T 0000 
08012000 T 0000 



08013000 T 0000 



PRT<625) » PLUG 



DEFINE. SIMPLE0 • SIGNC#> FQRMALV * SIGNA## 

SJMPLEV * CQNSTANA#> A • V#> * HE,GO*# 
OPDC * TRUE## OESC « FALSER K » BRET*; 

LABEL exit; 

COMMENT PLUG EMITS EITHER AN OPERAND CALL ON A VARIABLE OR A CALL ON A 

CONSTANT DEPENDING ON THE REQUIREMENTS; 
PROCEDURE PLUG(C'A); VALUE C#AJ REAL ki BOOLEAN C; 

IF C THEN EMITNUM(A) ELSE EMITV (A, ADDRESS ); 



08014000 


T 


0000 


08015000 


T 


oooo 


08016000 


T 


0000 


08017000 


T 


oooo 


08018000 


T 


0000 


08019000 


T 


oooo 


08020000 


T 


oooo 


08021000 


T 


oooo 



PRT(626) * SIMPLE 



COMMENT SIMPLE DETERMINES IF AN ARITHMETIC EXPRESSION IS ♦ OR - A 

CONSTANT OR A SIMPLE VARIABLE. IT MAKES A THROUGH REPORT 
ON ITS ACTIVITY. IT ALSO MAKES PROVISION FOR THE RESCAN 
OF ELBAT (THIS IS THE ACTION WITH K • SEE CODE IN THE 
TABLE ROUTINE FOR FURTHER DETAILS); 

BOOLEAN PR08E0URE SIMPLEIB* A*S )l BOOLEAN B#SJ REAL A; 



BEGIN 



s ♦ if stepi * adop then false else elbat [ i] * address 

« sub; 
adop then stepit; 
nqnlitnq and elclass s strngcon 
k «• km; simple * true; 
«• 0&c0mmentvc2u1 1 73&k[ 161 37ihj; 
«- a ♦ c; b «• true eno 



IF ELCLASS * 

IF ELCLASS 2 

THEN BEGIN 

ELBATCI3 



INF0C0#KJ 
ELSE BEGIN 
B * FALSE) A ♦ ELBATCU; 

SIMPLE •• REALID S ELCLASS AND ELCLASS $ INTID END; 
STEPIT END SIMPLE; 



08022000 


T 


0003 


06023000 


T 


0003 


08024000 


T 


0003 


08025000 


T 


0003 


08026000 


T 


0003 


08027000 


T 


0003 


08026000 


T 


0003 


08029000 


T 


0003 


08030000 


T 


0006 


08031000 


T 


0008 


06632000 


T 


0010 


08933000 


T 


ooit 


08034000 


T 


0014 


06035000 


T 


0017 


06036000 


T 


0021 


08037000 


T 


0022 


08636000 


T 


0024 


06039000 


T 


0026 



PRT<627) * TEST 



COMMENT TEST EMITS THE STEP-UNTIL ELEMENT TEST; 
PROCEDURE TEST; 

BEGIN 

IF NOT CONSTANB THEN 

BEGIN EMITO(SUB); IF SImPLEB THEN EMI TV(Bi AOORESS) 

else begin 

emitlc2+l-bhet); 

emitbcbbh'BUmpl'B); 
end; 

emito(mul); emitco) £nd; 

emitqcif signs then geo else leq); emit (0); l*l-1 
end test; 



08040000 


T 


0029 


06041000 


T 


0029 


08042000 


T 


0029 


08043000 


T 


0029 


08044000 


T 


0030 


08045000 


T 


0032 


06046000 


T 


0034 


06047000 


T 


0036 


08048000 


T 


0038 


08049000 


T 


0038 


08050000 


T 


0039 


08051000 


T 


0043 



BOOLEAN PROCEDURE SIMPI(ALL); VALUE ALL* REAL ALL) 



PRTC630) * SIMPI 



BEGIN 



CHECK£R(VRET*ALL); 



06032000 T 0044 

06053000 T 0044 
08054000 T 004a 



ADORES * ALL.ADDRESSi 
FORMALV * AIL.C9I2J a 2) 

IF T ♦ ALUCUSS > INTARRAYIO OR T < BOOIO OR 
GTl ♦ (T-BQOID) MOD a < 1 THEN 
ERR(REAL(T * 0} x 51 ♦ 100); 
INT * GTl » 2; 
SIMPI ♦ T S INTID END SIMPi; 



08955000 


T 


0046 


08056000 


T 


0047 


08057000 


T 


0049 


08058000 


T 


0052 


08059000 


T 


0054 


08060000 


T 


0057 


08061000 


T 


0058 



PRT(631) • STORE 



COMMENT STORE EMITS THE CODE FOR THE STORE INTO THE FUR iNOEXi 
PROCEDURE STORECS); VALUE S; BOOLEAN 5; 

BEGIN 

IF FORMALV THEN BEGIN EMlTOCXCH); S *■ FALSE END 
ELSE BEGIN 

EMITLCADDRES)* 

IF AODRES > 1023 THEN EMITQ(PRTE) END; 
T * (REALCSmmftJ 
EMITO((lF INT THEN T+512 ELSE 4xT)+4) END STORE* 



08062000 


T 


0062 


08063000 


T 


0062 


08064000 


T 


0062 


08065000 


T 


0062 


06066000 


T 


0065 


08067000 


T 


0065 


08968000 


T 


0066 


08069000 


T 


0068 


08070000 


T 


0070 



PRT(632) 9 CALL 



COMMENT CALL EFFECTS A CALL ON THE INDEX; 
PROCEDURE CALL(S); VALUE S; BOOLEAN S; 

BEGIN 
IF SJMPLEV 

THEN IF $ THEN EMI TV( ADDRES) ELSE EMI TN( ADORES) 
ELSE BEGIN 

EMITL(2*L-VRET); 

EMXTB(BBH»BUMPL'V); 

IF $ THEN EMITOCLOD) END END CALL; 



08071000 T 0074 
08072000 T 0074 



08073000 
08074000 
08G75000 
08076000 
08877000 
08678000 
08079000 



0074 
0074 
0075 
0078 
0079 
0080 
0083 



PROCEDURE FORLIST(NUMLE); VALUE NUMLE; BOOLEAN NUMLE; 
PRT(633) » FORLIST 

BEGIN 
PROCEDURE FIX(STORE*BACK,F0RWART# START); 



PRTC634) 9 FIX 



08080000 T 0084 

06681000 T 0084 

06082000 T 0084 

START OF SEGMENT ********** 



66 



value stqre#back,fqrwart»$tart; 
real store#back,fqrwart#start; 

BEGIN 

emi tb < get ctqrw art- 1),fqrwart# start); 
if returnstqre * 
then begin 

l ♦• store; emitnumcb-back); 

emitpair(returnstore#std) end end fix; 



08083000 


T 


0000 


08084000 


T 


0000 


08085000 


T 


0000 


08086000 


T 


0000 


08087000 


T 


0002 


08088000 


T 


0002 


08089000 


T 


0003 


08090000 


T 


0005 



INTEGER BACKFIX, FQRWARDBRANCH, FOOT* STOREFIx; 



08091000 T 0006 



STACK(F+2) 
STACKCF+3) 
ST*CK(F+4) 
STACKCF+5) 



BACKFIX 

forwardbranch 

FOOT 
STOREFIX 



COMMENT 

COMMENT 
COMMENT 
COMMENT 



COMMENT 
COMMENT 



LABEL brnch#exit; 
STOREFIX * Li Q ♦ REAL<MQDE*0)+3; 
FOR K ♦ 1 STEP 1 UNTIL Q DO EMITQ(NQP); 
IF NUMLE 
THEN BEGIN 

BACKFIX * Li 

IF FQRMALV THEN CALLCOESC) END 
ELSE BACKFIX ♦ V ♦ REAL( SIMPLEV )-i ; 



ARITHMETIC 
STEPV 



expression; 



CALHOPUOi 
* U I ♦ END 



COMMENT WE 

COMMENT 
COMMENT 



AEXPJ 

PICK UP FIRST 

IF ELCLAS5 • 

THEN BEGIN 
HERE WE HAVE A STEP ELEMENT; 

BACKFIX * BUMPL; 
LEAVE ROOM FOR FORWARD JUMP; 

IF FQRMALV THEN CALLCDESOi 

fetch index; 

if i > 70 then begin nxtelbt 

else rego «■ u 
if simpleb * simplecconstanb,b#signb) and 
(elclass * untilv or elclass * whilev) 

THEN BEGIN 
WE HAVE A SIMPLE STEP FUNCTION; 
PLUGCCQNSTANB #Bj; 

end else begin 
the step function is not simplei we construct a 
subroutine; 

i ♦ if i < 4 then else regoj stepit; 

5IGNB * C0NSTANB ♦ FALSE; 

emitco); b •■ l; 

aexp; EMITOCXCH); 
BRET ♦ L; 

emitocbfw) end; 

&MIT0(REAL<SlGNe)*32+ADD); 

emitb(bfw#backfix#l); 
if elclass * untjlv 
then begin comment step-until 
store(true); if formalv then 
stepit; aexp; test eno 
else begin comment step-while element; 
if elclass * whilev then 

begin errc153); go to exit 
stepit; 
else begin 
do not have a step 
store(false); 

IF ELCLASS m WHILEV 

then begin 
we have a while element; 
stepit; bexp end 

ELSE BEGIN 
ONE EXPRESSION ELEMENT; 



element; 
cau(opoc); 



end; 



store(false); bexp end eno 
element; 



08092000 
08093000 
08094000 
08095000 
08096000 
08997000 
08898000 
08099000 
08100000 
08101000 
08102000 
08103000 
08104000 
08105000 
08106000 
06107000 
08108000 
08109000 
08110000 

09111000 
08112000 
08113000 
08114000 
08115000 
08116000 
08117000 
08118000 
08119000 
08120000 
08121000 
06122000 
08123000 
08124000 
08125000 
08126000 
08127000 
06128000 
08129000 
08130000 
08131000 
08132000 
08133000 
08134000 
08135000 
08136000 
08137000 
08138000 
08139000 
01140000 
08141000 
0Q142000 
08143000 
08144000 



0006 
0006 
0009 
0014 

OOU 
0014 
0015 
0017 
0019 
0019 
0019 
0019 

0020 
0021 
0021 
0022 
0022 
0025 
0025 
0027 
0029 
0030 
0031 
0033 
0033 

0034 
0034 
0034 
0034 
0038 
0039 
0040 
0042 
0042 
0043 
0045 
0046 
0046 
0047 
0050 
0051 
0052 
0052 
0054 
0056 
0056 
0056 
0057 
0057 
0056 
0058 
0059 
O060 



COMMENT 

BRNCHI 



EXiTJ 



IF ELCLASS * COMMA THEN BEGIN 

EMITBCBFW#8CIMPL»U*2); BACKFJX ♦ L END 
ELSE BACKFJX * L ♦ 2> 
L •• L*U EMIT(BFW); GO TO BRNCH ENO END; 
THIS IS THE COMMON POINT; 

IF ELCLASS a COMMA TH£N EMiTLNG; L * L*W 
EMITCBFC); 

fqrwardbranch * t; dula ♦ dialb ♦ 0; 
if elclass « comma 
then begin 
stepit; 

FORLIST(TRUE)i 

FIXC5TQREFIX»BACkFIX#F0RWARDBRANCH#5TMTSTART) ENO 
ELSE BEGIN 

IF ELCLASS * DOV 

THEN BEGIN ERRU54); REGO*U' GO EXIT ENO/ 

STEPIT; 

IF NUMLE THEN FOOT «* GETSPACECFALSEfl ); X TEMP, 

stmt; 

if numle then begin 

emitvcreturnstqre «• foot); emitocbbw) end 
else begin 

emitb(bbw#bumpl*backfix)/ returnstqre * end; 
stmtstart * forwardbranch; b * \.i 
constantclean; rego «■ l; 
fixc5t0refix#backfix*f0rwardbranch,l) end; 
END forlist; 



08145000 
08146000 
08147000 
08148000 
08149000 
08150000 
08151000 
08152000 
08153000 
08154000 
08155000 
08156000 
08157000 
08158000 
08159000 
08160000 
08161000 
08162000 
08163000 
08164000 
08165000 
08166000 
08167000 
08168000 
08169000 
08170000 
08171000 
08172000 
66 IS 100 LONG* 



0060 
0061 
0065 
0066 
0069 
0069 
0072 
0073 
0075 
0075 
0076 
0076 
0077 
0079 
0079 
0079 

0082 
0083 

0085 

0086 
0086 
0087 
0089 
0089 
0092 
0094 
0095 
0096 
NEXT 5EG 



65 



STACKCF+2) 
STACKCF+3) 
STACK(F*4) 
STACK(F*5) 



REAL Tl#T2#T3#T4; 



Tl 
T2 
T3 
T4 



08173000 T 0084 



NXTELBT ♦ i; I ♦ 0/ 

stepit; 

if simpi(vret*elbatcn) 
then begin 

if stepi * assignor then begin errc152); 

ti ♦ l; if fqrmalv then emjtncaddresj; 

k «. o; 

IF SIMPLECCQNSTANA,A,SIGNA) THEN 
IF ELCLASS n STEPV THEN 
IF SIMPLECC0NSTANB#B,SIGN8J THEN 
IF ELCLASS w UNTRV THEN 
IF SIMPLECCQNSTANC»Q,SIGNC) THEN 
IF ELCLASS * DOV THEN 
BEGIN 

PLUG(CONSTANA,Aj; 

if signa then emitocchs); 
returnsture * bumpl; adjust; 
stmtstart * l; 
stepit; 



go exit end; 



cunstantclean; 



08174000 
08175000 
08176000 
08177000 
08176000 
08179000 
08180000 
08181000 
08182000 
08183000 
08184000 
08185000 
08186000 
08187000 
08188000 
08189000 
08190000 
08191000 
08192000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0084 
0086 
0087 
0087 
0089 
0091 
0094 
0094 
0096 
0097 
0099 
0100 
0102 
0103 
0103 
0104 
0106 
0109 
0109 



Tl ♦ ((((4096 x RETURNST0RE+STMTSTART)x2+ 
REAL(C0NSTANB))x2+ 

REAU(C0NSTANCnx2* 

REAL(SIGNB))x2+ 

REAL(blGNC); 

T2 ♦ vret; 
T3 * b; 
T4 ♦ o; 
stmt; 

SIGNC * BQ0LEAN(U.C47in); 
SIGNS ♦ B0QLEAN(T1«C46I1]>; 
CONSTANC ♦ BQ0LEAN(T1,C45|U); 
CONSTANB ♦ BQQLEAN(Tl,[44iU); 
STMTSTART ♦ Tl, [32*12]* 
RETURNSTORE ♦• Tl«C20l 18] J 
VRET * T2i 
B «• T3i 
Q ♦ T4i 
SIMPLEV* SIMPKVRET); 

IF FORMALV THEN EMI TN( AODRES )i 

PlUG(CONSTANB#B); 

emit0(if signb then sub else aou); 

em i tb(8fk# returnstore* u; 

store(true); 

if formalv then call(updc); 

plug(cqnstanc*q); 

if signc then emlto(chs)! 
simpleb ♦ true; test; emitlng; 
em i tb( bbc* bumpu# stmtstart); 
go to exit end; 

I *• 21 k # q; 
SIMPLEV •• SIMPKVRET); 
V ♦ Tl ENO 
ELSE BEGIN 

emit(O); v ♦ u simplev * false; 

VARIABLE(FR); EMITQUCHj; VRET ♦ 



emitv(adoreS); 



furmalv «• true; 
l; emitu(bfw); 



if euctassfassignqp then begin err(152); go exit end; 
end; 
stehit; fqrliskfalsej; l * rego; 
exit! k * end forstmt; 



08193000 
08194000 
08195000 
08196000 
08197000 
08198000 
08199000 
08200000 
08201000 
08202000 
08203000 
08204000 
08205000 
08206000 
08207000 
08208000 
08209000 
08210000 
08211000 
08212000 
08213000 
08214000 
08815000 
08216000 
08217000 
08218000 
08819000 
08220000 
08221000 
06222000 
08223000 
08224000 
08225000 
06226000 
08227000 
08228000 
08229000 
08230000 
08231000 
08832000 
65 IS 165 LONG* 



0110 
0112 
0113 
0114 
0115 
0116 
0116 
0117 
0118 
0118 
0120 
0121 
0122 
0123 

0125 
0126 
0127 
0127 
0128 
0129 
0132 
0133 
0135 
0136 
0137 

0136 
0139 
0141 
0143 
0145 
0147 
0148 
0149 
0150 
0151 
0154 
0157 
0159 
0159 
0161 
NEXT SEG 



PRT(635) * REED 



STACK(F+3) * I 
STACKCF4-4) ~ J 
STACK(F+5) 9 K 

PRTC636) » MOVE 



REAL PROCEDURE REED; 

BEGIN 

LABEL EOF; INTEGER I*J*K; 



STREAM PROCEDURE MOVE(N*F*T>; VALUE N#T; 

BEGIN SU»F; 01 l»TJ DSIwN WOS END MOVE; 



08999000 T 0468 

08999025 T 0468 

08999050 T 0468 

START OF SEGMENT ********** 



08999075 T 0000 
08999100 T 0000 



67 



PRTC637) * EOF 



j«*-i; 

READCCODlSK£NO]HEQF]; 

REED»*I»*FETCH(MKAB$CCODISK<im; 

Kt»MKABS(CODE<Oj)«i; 

WHILE I-J>30 DO 

BEGIN 

MQvE(30#CQQISK(O),K); KUK + 3Q; J»«J+3Q; 

REAO(COOlSK)J 

end; 

MOVE(I-J'COOlSK(0),K>; 

READCCODISKHEOF]; 
EOFI 
END REED^ 



08999125 
08999150 

08999175 
08999800 
08999225 
08999250 
08999275 
08999300 
08999325 
08999350 
08999375 
08999400 
08999425 



T 0001 
T 0003 



67 IS 47 LONG, 



0008 
0014 
0019 
0020 
0020 
0027 
0031 
0031 
0036 
0041 
0042 
NCXT SEG 



STACK(F+2) * I 
STACKCF+3) * J 



PRQCEOURE RIGHTCL); VALUE Li INTEGER U 
BEGIN 
INTEGER l»Ji 



I»»(L*7) DIV 4; 
M0VE<l'I»C00ISK(O))i 
M0VE(29,C00E(0)#C0DISK(1)); 
WRITECCQ9ISK); 

WHILE I-J>0 DO 
BEGIN 
MOVEC30'CQDECJ)*CODISK<0))J 

waiTE(cooiSK>; 
j»*j+3o; 
end; 
enb right; 



08999450 

08999475 

08999500 

START OF SEGMENT 



08999525 
08999550 
08999575 
08999600 

08999625 
08999650 
08999675 
08999700 
09999725 
08999750 
08999775 
08999800 



T 0468 

T 0468 
T 0468 

********** 



68 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
68 IS 85 LONG, 



0000 
0001 
0005 
0012 
0016 
0017 
0019 
0019 
0026 
0030 
0031 
0032 
NEXT SEG 



COMMENT THE PROGRAM ROUTINE 
FOR THE REST OF THE 
IS SIMPLY A CALL ON 

PROCEDURE PROGRAM* 
PRT(640) * PROGRAM 

BEGIN 

STREAM PROCEDURE MOESC<WD#TQlOC U VALUE 



DOES THE INITIALIZATION AND 
COMPlLERt THE MAIN PROGHAM 
THE PROGRAM ROUTINE* 



wd; 



THE WRAPUP 

OF THE COMPILER 



PRTC641) * MDESC 



START 



begin oi*loc wd; ds«- set;si«- log wd; di*toloc;ds*wos end; 



09000000 
09001000 
09002000 
09Q03000 

09004000 

09005000 

OF SEGMENT 



0468 
0468 
0468 
0468 

0468 
0468 



********** 



69 



09006000 T 0000 



OEFINt ST 
LABEL Li; 
LlSTOG»«L 

COMMENT LISTOG IS NOT 
NOHEAUING 
ERRORCQUN 
ERRMAXI*9 
BASENUMI* 

COMMENT DEFAULT VALUES 
LASTUSED 
NEXTINFO 
PUTNBUMPC 

GT1 ♦ "" 
MOESCtGTl 
BLANK6T<0 
READACARD 

LASTUSED 
NXTELBT ♦ 
PRTI*PRTI 
MRCLEAN * 
COMMENT START FILLING 
FILL TENC 
0CTl77ui0ft63422054, 

0CTi7a2l656305l7^a7, 
0CT1714266046U6735, 
0CT165104034724J213, 
0CT1622047303622767, 
0CT157A034726313046, 

0CT1547730366574502* 
0CT1501736264172732* 
0CTi4536j6220020057, 
0CT142730l7ii237333» 
OCT136l6322545i373l, 
0CT13334H34U50223, 
0CT1306676337663537, 
0CTl24i5327745t5275, 
0CTl2»32t556j35307i, 

0CTil663l463l463l46# 

OCTU21440000QOOQQO# 
OCT 107 30 32400000000* 
0CT104575 360^000000, 
0CT0001351035564000, 
0CTOO32637i«2036440, 
0CT0065432127413543* 
OCTOj2i265707274266, 
0CT0i525i320 l 307703, 

0CT020512*764556310, 
0CT024l20*i70l75347, 
0CT0272356t326630l3# 
OCTO 32464 U4 1345435, 
OCT036H31664625027, 
0CT04 12227 375067064, 
0CT0444367706263476* 
0CTO50l0604n73l665# 
0CT0532106607305375* 



ARTINTRSC*426#; 



ISTERI* 
SET BY 

1* TRU 
T %m O; 

99; % M 
IOOOO; 
FOR "$ 
I* 4j X 

* LASTI 

0); 

'INPQCL 
»INF0CL 

; * ini 

X REA 

1* 1; % 
1; 

MAX*PRT 

true; 

TABLES 
*3 WITH 
OCT 



B0OLEAN(l-ERR0RCOUNT.C46IU); 

DEFAULT ON TIMESHARING; 

Ei 

AY BE CHANGED IN DQLLARCARD, 
AOOVALUEtfflOOO; NEWBASE* S TRUE; 

se8" option; 
for initialization, 

NFO * LASTSEQR0Wx256+LA8TSE0UENCE*i; 



"S CHECK", 
AND 



; 

ASTSEaROW,LA5TSEQUENCE3); 
AST5EOROW,LASTSEQUENCE3); % FOR 
TIALIZATION OF NCR#FCR> AND LCR» 

DS FIRST CARD INTO CARD BUFFER, 

assumes card only until tolo differently 
base; 

NEEDED TO COMPILE A PROGRAM; 
I76j332600326467, OCT 175 16213404 J42Q5, 



0CT1732623176643120 
0CT17O5343457542525 

0CT164125044J111455, 
0CT161246H64567564, 
0CT1565044H3775657, 
0CTl52H7l646433362, 
0CT1472325741231521 
0CT1444561664024072; 
0CTt40ni6227350722, 
0CT1352200727636717, 
0CT13243l363l402270< 
0CTl2 6 l045602764047 
OCT1232061573640554 
0CT120406U15645707 
OCT1141000000000000, 
OCTllli750000000000i 
OCT1063641100000000J 
OCT 10 37 346545000000. 
0CT00U643245121000, 
0CT0043432772446150, 
0CT00767405553i6473# 
0CT0i3l54327il53343* 
0CT0i6323604i57i663» 

0CT02l635456i7n772# 
0CT0251447626234641, 
0CT0303051561442216, 
0CT033601137J636745, 
0CT037l36024j772234, 
0CT0422675274304701, 
0CT04554656677404l5# 
0CT0511274514320242# 
OCT054253035H66674, 



START 



0CT1723370036413744, 
0CT1676634373473252, 

0CT1631522551333770, 
0CTi603l75a2i72552l, 
0CT1556255136775233, 
0CT1511430220142257, 
OCT1463013331500045, 

0CT1435716241031111, 
0CT1371341675243107, 

0CT1342641U56065Q2* 
0CT1315376577702746, 
0CT125l257i4356i06i, 
0CT1222476i326l0706, 
0CTH7507534l2l7270, 
OCT 11 31200000000000, 
0CT11O2342O0000000O* 
0CT10546H320000000, 
0CT10H124027620000, 
0CT0022214U6345200, 
0CT005434157H57602, 
0CT0111053071060221, 
0CT0142074147406234, 
0CTOJ74 105452130240, 
0CT0231004771627437, 
0CTU26l76l5737040tl# 
0CTO313664H5752661, 
0CT«3474i3670206536, 
QQT040l6543l237Q703# 
0CTO433454553366062* 
0CT0467003245730521, 
OCT0521553637404312# 
0CT0553256443424453# 



09024000 
09025000 
09028000 
09026010 
09028050 
09026900 
09026910 
09028920 
09028930 
09029000 
09033000 
09034000 
09034100 
09034200 
09934500 
09035000 
09S36000 
09037000 
09838000 
09039000 
09940000 
09040100 
09941000 
09042000 
OF SEGMENT 
09043000 
09044000 

09045000 
09046000 
09947000 
09046000 
09049000 
09050000 
09051000 
09052000 
09053000 
0f054000 
09055000 
09056000 
09057000 
09058000 
09059000 
09060000 
09061000 
09062000 
09063000 
09064000 
09065000 
09066000 
09967000 
09068000 
09069000 
09070000 
09071000 
09072000 
09073000 
09074000 



0001 
0001 
0001 
0005 

0005 
0006 
0006 
0007 
0009 
0009 
0010 
0013 
0014 
0015 
0017 
0019 
0019 
0019 
0020 
0021 
0022 
0023 
0023 
0023 
********* 

0024 
0024 
0024 
0024 
0024 

0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 



70 



0CT0564132l5433i566# 
0CT062l0i20i436U20# 
0CT065l773450267005# 
0CT970370727264534J, 
0CT0737461304707i0Q# 

0CT077i665435043072i 



0CT0575160607420123* 
0CT0631214417455344, 
0CT06*2372362344606, 
0CT071467U51416632» 
OCT075U37556607072, 



OCT06064;4751324150, 
0CT0641457523370635* 
QCTU673071057035747, 
0CTO726047403722400* 
0CT0761367512350710* 



COMMENT THIS IS THE FILL FOR THE SECONO ROW OF INFO! 

THE FIRST ITEMS ARE STREAM RESERVED WOROS, 
THEN URDINARY RESERVED WORDS* 
THEN INTRINSIC FUNCTIONS; 
FILL INF0C1#*3 WITH 

OCT0670000600000002* "2SI000"* 



QCT0700001040000002 
0CT0710001460000002 
0CT072000H300O0OO2 
0CT0730O005300O0O02 
0CT074O0OO 150000002 
OCT0750001620000002 
OCT0760000740000002 
OCT0770000500000002 
OCTiOl0000730000002 
OCT102000U60000002 
QCTi03000li70000002 
0CTi040O0H30000OO2 
OCT1050000340000002 
OCTi06000l036400002 
OCT1060001066500002 
OCT1060001020500002 
OCTl06000l357700002 
OCT1060001057300002 
OCTi06000j6l7200002 
OCTi060000727600002 
OCTi0600004l7500002 
OCT1060000766700002 
QCT1060000176600002 

OCT 1004000260000003 
OCT01303U060000002 
QCTi36044l030000002 
OCT0500000 170000002 
QCT0660000000000002 
0CT05000000 4000000 3 
OCT1070000000000003 
OCT0500000230000003 
0CT1410446000000002 
OCT0550000000000002 
0CT0520OO00O000OOO3 
0CT0570OO00000O0OO2 
OCT0600000000000002 
OCT 1340442030000002 
0CT0410000000000002 
0CT0130310030000002 
OCT0530000000000002 
OCTH00000000000003 
OCT0640000000000002 
OCT0130316060320002 



"201000" 
"2CI000" 

"5TALLY" 
"2DS00Q" 

"4SKIPQ" 
"4JUMPQ" 
"2DB00C 
"2SB00Q" 
"2SC0Q0" 
"3L0C00" 
"2DC000" 
"5LQCAL" 
"3LIT0Q" 
"3SET00" 
"3RESET" 
"3WDS00" 
"3CHR00" 
"3ADD00* 
"3SUB00" 
"3ZQN00" 
"3NUM00" 
"3QCT0G" 
"30EC00" 

"6TQGGL n 
"3ABS0Q" 
"3AND00" 
"5ARRAY" 
"5BEGIN" 
"7B00LE* 

"7C0MME" 
"6DEFIN" 
"30IV00" 
"200000" 
"60QUBL* 
"4ELSE0" 
"3ENDQ0* 
"3EQV00" 
"5FALSE" 
"4FLAG0" 
"3F0R00" 
"7F0RWA" 
"2G0000" 
"4HUNT0" 



"£0000000", 



"ANOOOOOO"* 
"NTOOOOOO"* 
"EOOOQOOO"* 



"EOOOOOOO"* 



"RD 



X256 

X258 
X26Q 
X262 
X264 

X266 
X268 
X270 
*272 
X274 
X276 
X278 
X280 
X282 
X284 
X286 
X288 
*2«0 
X292 
X294 
X296 
X298 
X300 
X302 
X304 
X3Q7 
SS309 
X311 
X313 
X315 
X318 
X321 
X324 
X326 
X328 
X331 
X333 
X33S 
X337 
X339 
X341 

X343 
X346 

X348 



09075000 
09076000 
09077000 
09078000 
09079000 
09080000 
70 IS 115 LONG 
09S81000 

09682000 
09063000 
09084000 
09Q85000 
01086000 
START OF SEGMENT 
09087000 
09988000 
09089000 
09090000 
09091000 
09092000 
09093000 
09094000 
09995000 
09096000 
09097000 
09998000 
09099000 
09100000 
09101000 
09102000 
09103000 
09104000 
09105000 
09106000 
09107000 
09106000 
09109000 



091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 
091 



10000 
10001 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
12900 
13000 
13100 
13200 
13300 
13400 
13500 
13600 
13700 



0024 
0024 
0024 
0024 
0024 
0024 
NEXT SEG 
0024 
0024 
0024 
0024 
0024 

0025 

********* 

0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 

0026 
0026 
0026 



69 



71 



QCT0630000000000002 


* "2IF000* 






QCT0500000040Q00002 


p "4REAL0" 






OCT0500000050000003 


p "7INTEG" 


* "EROOOOOO"* 


QCT0500000070000002 


p "5LABEL" 






0CT0360002000020003 


p "6MEM0R" 


p "Y 


»p 


QCT141045600000Q002 


p "3M0D00" 






OCT0500000J00000003 


* "7M0NIT" 


p "OR 


"p 


OCT0130301060000002 


/ "4NABS0" 






0CT05OOOOO20OO00002 


p "4NAMEQ" 






QCT013030403Q000002 


p "5NFIAG" 






OCTi320300230000002 


p "3N0TO0" 






0CT1350440430000002 


p "2QRO00" 






OCT 0500000020000002 


p "4SAVE0* 






0CT0500000010000002 


# "3OWNO0" 






QCT0460000000000003 


p "dPOUS" 


» "H 


n P 


0CT0500000i60000003 


p "9PR0CE" 


* "DURE n P 


OCT0130300000i600u 


p "4SIGNQ" 






0CT2085, 


COMMENT 


DUP 


i 


OCTOOOO* 


COMMENT 


UITC 


o; 


0CT0425# 


COMMENT 


NEC 


; 


QCT1025, 


COMMENT 


XCH 


i 


0CT0U5* 


COMMENT 


OIA 


X* 


0CTQ161* 


COMMENT 


018 


IP 


0CT0165, 


COMMENT 


TRB 


1; 


OCT1U0000000000002 


» MSTEPO"; 






OCT0500000220000003 


» "6STREA"i 


» "M 


*# 


0CT0500000U0000003 


» "#SUBRO"' 


> "UTlNE n P 


OCT0500000150000003 


» m 6SWITC"j 


» "H 


m . 


OCT H20000000000002 


» w 4THEN0"j 






0CTH30O0OO0OO00O02 


» "2T0000 W < 






QCTo41000001Q000002j 


» "4TRUEQ"/ 






QCT0560000000000002 


» "5UNTH", 






OCT1H0000000000002 


* LVALUE"* 






QCTOS400000000000Q2j 


' w 5WHILE"j 






OCT1310440200000002 


» "3ADD00 ,, J 






OCTl3l02«0270000002j 


» "3BRT0Q*j 






OCTi3l0453050000002i 


» "3CCX00"/ 






0CT131044250OOO0002/ 


» *3CDC00 rt i 






0CTi3lO45705OOOO002/ 


» "3CFX00", 






OCTi3l0302060000002i 


' "3CHS00 H i 






OCTi3l04405Q0000002j 


» "3CQC00 w j 






QCTi3j0242020000002j 


» "3C0M0Q"/ 






0CTi3iO30206OOOOOO2i 


• M 3CSBOO M 4 






OCTl3i0240l20000002i 


• "3DE100", 






0CTl260l00550000002i 


» "3QIA00"j 






OCTl260l006l0000002i 


• w 3DIB00"i 






0CTl3l0344050000002i 


• "3DUP0Q** 






0CT1310451050000002/ 


. M 3EQl00 M i 






OCTj310443050000002j 


• n 3FCX00"i 






OCTi310447050000002< 


> w 3FFX00 w i 






OCT 1310440250000002/ 


> n 3GEQ00 w i 






0CTi3lO44O45OOQ0QO2j 


• "3GTR00 w i 






OCTJ310104420000002/ 


» "3HIB00"* 






OCT 1 3 10 10442000000 2$ 


"3HP200"* 






OCT1310446000000002* 


W 3IDV00"# 






OCT1310251020000002J 


"3II000 w i 






OCTi3l0250220000002< 


"3INA00"* 







X350 
X3S2 
X354 
X357 

X359 
X362 
X364 
X36? 
X369 
X371 
X373 
X375 
X377 
X379 
*381 
X384 
X387 



X396 
X398 
X401 
X4Q4 
X4Q7 
X4Q9 
X411 
X413 
*415 
X417 
X419 
X421 
X423 
X425 
X427 
X429 
X431 
X433 
X435 
X437 
X439 
X441 
X443 
X445 
X447 
X449 
X45i 
X453 
X455 
X457 
X459 
X461 
X463 



091 


13800 T 


091 


13900 T 


091 


14000 T 


091 


14J00 T 


091 


14200 T 


091 


14300 T 


091 


14400 T 


091 


14500 T 


091 


14600 T 


091 


14700 T 


091 


14800 T 


091 


14900 T 


091 


15000 T 


091 


15100 T 


091 


15800 T 


091 


15300 T 


091 


15400 T 


091 


15500 T 


091 


15600 T 


091 


15700 T 


091 


15800 T 


091 


15900 T 


091 


16000 T 


091 


16100 T 


091 


16200 T 


091 


16300 T 


091 


16400 T 


091 


16500 T 


091 


16600 T 


091 


16700 T 


091 


16800 T 


091 


16900 T 


091 


17000 T 


091 


17100 T 


091 


17200 T 


091 


17300 T 


091 


17400 T 


091 


17500 T 


091 


17600 T 


091 


17700 T 


091 


17800 T 


091 


17900 T 


091 


18000 T 


091 


18100 T 


091 


18200 T 


091 


18300 T 


091 


18400 T 


091 


18500 T 


091 


18600 T 


091 


18700 T 


09J 


18800 T 


091 


18900 T 


091 


19000 T 


091 


19050 T 


091 


19100 T 


091 


19200 T 


091 


19300 T 



0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 

0026 
0026 

0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 



OCT1310250420000002* "3JNB00" 

OCTi3lOl00420000002* "3JNI0Q" 

QCT1400440300000002* "3INX00 n 

0CTi3lO2**2200000O2# "3IQRQ0" 

0CT1310250220000002* H 3lPlOQ" 

0CTi3lO25O«200O0OO2» "3IP200" 

0CI1310145060000002, "31PS00" 

QCTt3l041024QOQOQ02* "3ISD00" 

QCTi3l0450440000002* "3ISNQ0" 

QCTl3l0l0O42QO0QQ02* "3ITI00" 

OcTi3t0450250000002# "3LEQOO" 

OCTi3i0505300000002# "3LLLOO" 

0CTl3lO44lO30OOOOO2# "3LND00 n 

QCTi3i0300230000002* "3LNGOQ" 

QCTi3l0304040000002» M 3LOQOO M 

OCTi3lO«40430000002# M 3L0R00" 

0CTl3lO442030O0O0O2* "3LQVOO" 

QCTi3l0450450OO00O2# M 3lSSOO n 

OCTl3lOlOli00000002» "3MKSOO" 

OCTl3l044l000000002# M 3MULOO" 

QCTi3l0441050000002> "3NEQOO" 

OCTl3lOlOOl30000002# "3NQPQO" 

OCT0650006550000003* "6SC0P0" 



FILL INF0C2**] WITH 

OCTi3tO3O0O00020OO4, "3RDFOQ"* 



M N, 



OCTOOOO, 
QCT2141* 
0CTl3l03O0000020004# 
0CT0004, 
QCT2HI* 
10456000000002* 
10304030000002* 
i02«0470000002 f 
l0i*5060000002# 
10311060000002* 
10242470000002* 
10141020000002* 
10240470000002* 
101*1020000002* 
10242470000002# 
10310030000002* 
10442040000002* 
10301060000002* 
10316060000002* 
10301060000002* 
10311060000002* 
10401040000002* 
10240000020004* 
0CT0010* 
0CT2141* 
10442040000002* 
10240000020004* 
0CT0014* 
0CT2141, 
OCTi3l0440600000002* 



COMMENT LITC 
COMMENT FXS 
"3RDS0Q n * 



i> 

* 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 

Oct 

OCT 
OCT 
OCT 



OCT 
OCT 



COMMENT LITC 

COMMENT FXS 

n 3RDV00" 

"3RFB0Q" 

"3RNQ0Q" 

"3RRR00" 

M 3RSB0Q n 

"3RSP00" 

"3RTM00* 

"3RTN00" 

"3RTRQ0* 

"3RTS00" 

"3SFB00" 

"SSNOOO" 

"3SSB00 W 

"3SSF00" 

"3SSN0Q* 

"SSSpOQ" 

"3ST000* 

"3STF00 W 

COMMENT LITC 2; 

COMMENT FXS ; 

"35TN00" 

"3STS00" 

COMMENT LITC 3; 

COMMENT FXS ; 

H 3SUB00 M * 



X465 
X467 
X469 
X471 
X473 
X475 
X477 
X479 
X481 
X483 
X485 
X487 
X489 
X491 
X493 
X49S 
X497 
X499 
X501 
X5Q3 
X505 
X5Q7 
X509 



X512 



X516 



X520 
X522 
X524 
X526 
X528 
X530 
X532 
X534 
X536 
X538 
X540 
X542 
X544 
X546 
X548 
X550 
X552 
X554 



X558 
X56Q 



X564 



09HV400 
09119&00 
09119600 
09119700 
09H9800 
09119900 
09120000 
09120100 
09120200 
09120300 
09120400 
09120500 
09120600 
09120700 
09120800 
09120900 
09121000 
09121100 
09121200 
09121300 
09121400 
09121500 
09121600 
71 1$ 256 LONG 
09121650 
09121700 
START OF SEGMENT 
09121800 
09121900 
09122000 
09122100 
09122200 
09122300 
09122400 
09122500 
09122600 

09122700 
09122800 
09122900 
09123000 
09123100 
09123200 
09123300 
09123400 
09U3500 
09123600 
09123700 
09123800 
09123900 
09124000 
09124100 
09124200 
09124300 
09124400 
09124500 
09124600 
0*124700 



0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
NEXT SEG 
0026 
0027 
********* 

0028 
0026 
0028 
0028 
0028 
0028 
0028 
0026 
0028 
0028 
0028 
0026 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0026 
0028 
0026 
0028 
0028 



69 



72 



OCT i 310 344060000002 
OCT1270440650000002 
OCT1310155060000002 
OCT1310344060000002 
OCT1270440650000002 
OCT1300300000000002 
OCT1310502050000002 
OCT131010J070000002 

OCTi3lOl05020000002 
QCTl3lOi05020000002 
OCT1270500750000002 
DCT1270500750000002 
QCTi2705007t0000002 
0CTl2705007l0000002 
OCTi3l04402l0000002 
0CTl3l04402i0000002 
OCTl3l04406l0000002 
OCTi3i04406l0000002 
OCTi3l044lOj0000002 
OCTl3l044tOi0000002 
OCT1310442010000002 
OCTi3l04420l0000002 
QCT0460000000000002 
QCT0360002000020002 
OCTi3l0240000020004 

0CT01U* 
0CT0055, 
OCT0650006610000003 
OCT0030000000040003 
0CT0030000000040003 
OCTOO 3000000004000 3 
OCTOO 3000000004000 3 
OCT0030000000040003 
OCTOO 3000000004000 3 
0CT0030000O0004O003 
QCT0030000000040003 

OCT0030000000040003 
0CTi3i0ll7530000002 
0CT1310U75400OOOO2 
OCTi3lOj57730000000 



"3TF80Q 
"3TFR00 
"3TI0O0 
"3T0P00 
"3TRB00 
"3VFI00 
"3XCH00 
"3XIT00 
W 3ZIP00 
"3ZP100 
"3CFE00 
"3FCE00 
"3CFL00 
"3FCL00 
"30LA0O 
"3A01O0 
M 30LS00 
"3SD100 
H 3QLM00 

"3MDL00 

"301000 
"3Q0100 

"1P0000 

M 1M0000 

"3PRU00 

COMMENT 

COMMENT 

"7SCQPQ 

"2LB000 

"2RB000 

"3GTR00 

"3GEQ00 

"3E0L00 

"3NEQ00 

"31EQ00 

-31SS00 

"5TJMES 

"3SCI00 

"3SAN00 

"3SCSQ0 



prl; 
nop; 

"># 
"<# 



X566 
X568 
X570 
X572 
X574 
X576 
X578 
X560 
X582 
X584 
*586 
X588 
X590 
X592 
X594 
X596 
X598 
X600 
X602 
X604 
X606 
X608 
X610 
X6X2 
X614 



X618 
X621 
X624 
X627 
X630 
X633 
X636 
X639 
X642 
X645 
X648 
X650 
X652 



09 


124800 i 


r 0028 


09 


,24900 1 


r 0028 


09 


125000 ' 


r 0028 


09 


125050 1 


r 0026 


09 


125100 ' 


r 0028 


09 


125200 1 


r oo28 


09 


125300 1 


r 0028 


09 


125400 1 


r 0028 


09 


125500 1 


r 0028 


09 


L25600 1 


r 0028 


09 


125700 1 


r 0028 


09] 


125800 1 


r 0028 


09| 


125900 1 


r 0028 


0?] 


126000 1 


r 0028 


09] 


126100 1 


r 0028 


09] 


126200 1 


r 0028 


09] 


L26300 1 


• 0028 


09] 


126400 1 


' 0028 


09] 


126500 1 


r 0028 


09] 


126600 1 


r 0028 


09] 


L26700 1 


r 0028 


09] 


126800 1 


r 0028 


09] 


126900 1 


r 0028 


09] 


127000 1 


' 0028 


09] 


127100 1 


' 0028 


09] 


127200 1 


r 0028 


09J 


127300 1 


r 0028 


09] 


127400 1 


• 0028 


09] 


127500 1 


r 0028 


091 


127600 1 


r 0028 


091 


127700 1 


' 0028 


0»1 


127800 1 


r 0028 


09] 


127900 1 


' 0028 


09] 


128000 1 


• 0028 


091 


128100 1 


' 0028 


09] 


128200 1 


' 0028 


09] 


128300 1 


• 0028 


09] 


L28400 1 


r 0028 


093 


128500 1 


• 0028 


09] 


126600 1 


r 0028 


09] 


128700 1 


r 0028 


09] 


128800 1 


r 0028 


09] 


128900 1 


r 0028 


09] 


L29000 1 


r 0028 


09] 


129100 1 


r 0028 


09] 


129200 1 


r 0028 


09] 


129300 1 


r 0028 


09] 


L29400 1 


r 0028 


09] 


129500 1 


r 0028 


09] 


129600 1 


r 0028 


09] 


L29700 1 


r 0028 


09] 


L29800 1 


r 0028 


09] 


129900 1 


r 0028 


09] 


130000 1 


r 0028 


093 


130100 1 


r 0028 


09] 


130200 1 


r 0028 


09] 


L30300 1 


r 0026 



01 % END OF INFO FIU. 

FOR GT2*256 STEP GTl,LINK WHILE NOT BQQLEANCGT I .FORMAL ) 00 

PUT((GTi4-TAKECGT2))&GT2C35i35«13J*GT2)J 
FOR GT1*GT2 STEP GT2.LINK WHILE GT2,LINKX0 00 

PUT<(«T2*TAKECGTl)J&STACKHEA0CGT3*TAKE(GTl+n.C12«36] 
MOO 125]C35I35I13J*STACKHEADCGT3J«-GT1)* 
COMMENT THIS IS THE FILL FOR THE SPECIAL CHARACTORSJ 
FILL SPECIALS] WITH 
QCT12Q0000000200000, COMMENT *i OgTOOOOOOOOOOiOOOOO, COMMENT 



OqTOOOOOOOOOOOOOOOO, 
OCT1370440«50002763, 
OCT 1400440200000000, 
OCT 1220000000060000 > 
0CT1250000000000000# 
OCT137045045000357I, 
OCT1410441000000000, 
OCT 0000000000040000, 
0CT140Q44060Q00000Q, 
OCT0620000000000000, 

octoooooooooooooooo, 

OCT 1170000000000000, 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

COMMENT 
COMMENT 
COMMENT 
COMMENT 



&; 
<; 

s; 

•; 



COMMENT $} 



OcTll60000000t20000* COMMENT *) 

OCTl370440250002662# COMMENT ii 
QCTOOOOOOOQOOOOOOQO, 

OCT1210000000000000# COMMENT U 

OCT0450000000000000* COMMENT (; 

OCTl33040l040000000# COMMENT *•} 
OCTOOOOOOOOOOOOOOOO* 

QCT047000000000000Q# COMMENT *; 

OCT1240000000160000, COMMENT )J 

0CT137045025O0034/0* COMMENT ii 

QCT1410442000000QQO, COMMENT /} 

OCT0000000000020000, COMMENT Xi 



09130400 
09130500 
09130600 
09130700 
09130800 
09130900 
09131000 
09131100 
09131200 
09131300 
09131400 
09131500 

09131600 
09131700 
09131800 
09131900 
09132000 
09132100 
09132200 
09132300 
09132400 
09132500 
09132600 
09132700 
09132800 
09132900 
09133000 
09133100 
09133200 
09133300 
09133400 
09133450 
09133500 
09133600 
09133700 
72 IS 143 LONG 
09133800 
09133900 

09134000 
09134100 
09134200 
09197000 
09198000 
09199000 
START OF SEGMENT 
09200000 
09201000 
09202000 
09203000 
09204000 
09205000 
09206000 
09207000 
09208000 
09209000 
09810000 
09211000 



0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
NEXT SEG 
0028 
0034 

0040 
0045 
0049 
0053 
0053 
0053 
********* 

0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 



69 



n 



OCTl37044l050002561, 
OCT1230000000000000# 

0*0; 

FILL MACROC*! WITH 
QCT0131* 

QCTG116* 

OCTOOOO* 

0CT0140* 

QCTQ130' 

QCTOU7* 

OCTOOOO* 

OCTOOOO* 

OCT00310H3* 

QCT00160143* 

octoo47Q143* 

QCT0040Q143* 
0CT00300143* 
0CTOO170H3* 
OCTOOOO* 
0CT9000* 
0CT0153* 
QCT0104* 
0CT0150* 
0CT00420H30042* 
QCT0122* 
OCT01O6* 

OCTOOOO' 
QCT800Q* 
QCT0056* 
OCTOOOO* 
QCT600Q* 
OCTOOOO* 
OCTOOOO* 
0CT0007* 
OCTOOOO* 
OCTOOOO* 
0CT0U5* 
OCT0114* 
0CT0154* 
0CT014W 



COMMENT *l 0CT1370451050002460, 
COMMENT ]; OCT0000000000140000* 



COMMENT SFS A 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMME 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



FILL OPTIONSC*] WITH "5CHECK"*0* 

"6QEBUG W *Q* 
••40ECKO M *0* 
"6FORMA%0* 
"9INTRI"*0* 
"5LISTA%0* 
W 4HST0"*0* 
"5LISTP"*0* 

"3MCPOQ"#0* 
M 4TAPE0 W *0* 
"4NESTO"*0* 
"3NEW0Q"*Q* 
"7NEWIN"*0* 



00 

SFD A 01 

SYNTAX ERR0R02 
INC A 03 
SRS A 04 
SRD A 05 

SYNTAX ERR0R06 

SYNTAX ERR0R07 

CRF A* SFS 008 

CRF A* SFD 009 
NT CRF A* JFW 10 

CRF A* INC Oil 

CRF A* SRS 012 

CRF A* SRD 013 

SYNTAX ERRQR14 

SYNTAX EKR0R15 
RSA A 16 
ROA A 17 
RCA A 18 

SEC 0* CRF A* SEC 1? 
SES A 20 
SEO A 21 

SYNTAX ERRQR22 

SYNTAX ERR0R23 
TSA 24 

SYNTAX ERRQR25 

SYNTAX ERRQR26 

SYNTAX ERR0R27 

SYNTAX ERRQR28 
TOA 29 

SYNTAX ERR0R30 

SYNTAX ERR0R31 
SSA A 32 
SOA A 33 
SCA A 34 
STC A 35 

X 0*1 



% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



2*3 
4*5 
6*7 
8*9 
10*11 

12*13 
14*15 

16*17 
18*19 

20*21 
22*23 
24*25 



COMMENT 


»; 09212000 • 


r 0054 


COMMENT 


"J 09213000 ' 


r 0054 




09214000 ' 


r 0054 




73 IS 32 LONG; 


. NEXT S£G 69 




09915000 • 


r 0054 


• 

t 


09216000 ' 


r 0055 




START OF SKGMENT * 


it********* JH 




09217000 1 


r 0056 




09218000 1 


r 0056 




09B19000 1 


r 0056 




09220000 ' 


r 0056 




09221000 1 


r 0056 




09222000 1 


r 0056 




09223000 1 


r 0056 




0922^000 1 


• 0056 




09225000 1 


' 0056 


i 


09226000 1 


' 0056 




09227000 1 


' 0056 




09226000 1 


• 0056 




09229000 1 


r 0056 




09230000 1 


0056 




09231000 1 


" 0056 




09232000 1 


0056 




09233000 1 


' 0056 




09230000 1 


0056 




09235000 1 


0056 




09236000 1 


0056 




09237000 1 


• 0056 




09238000 1 


" 0056 




09239000 1 


0056 




09240000 1 


• 0056 




Q9241000 T 


0056 




09842000 1 


0056 




09243000 1 


0056 




09244000 1 


' 0056 




09245000 T 


0056 




09246000 1 


0056 




Q924P00Q 1 


0056 




09248000 1 


0056 




09249000 1 


0056 




09250000 T 


0056 




09251000 T 


0056 




74 IS 36 LONG* 


NEXT SEG 69 




09251208 T 


0056 




START OF SEGMENT * 


********* 75 




09251212 T 


0058 




09251214 T 


0058 




09251216 T 


0058 




09251218 T 


0058 




09251220 T 


0058 




09251224 T 


0058 




09251228 T 


0058 




09851230 T 


0058 




09151232 T 


0058 




09151234 T 


0058 




09251236 T 


0058 




09151240 T 


0058 



"4QMIT0"*0* 


X 


26*27 


"1*0000 M *0* 


X 


26*29 


"3PRT0O"*O* 


X 


30*31 


"5PUNCH"*Q* 


X 


32*33 


"5PURGE"*0* 


X 


34*35 


"45EG50"*0* 


X 


36*37 


M 35EQ00"*0, 


X 


38,39 


"6SEQER N *0* 


X 


40*41 


"6SINGL"*0* 


X 


42*43 


«5STUFF"*0, 


X 


44*45 


"4VUID0"*0* 


X 


46*47 


"5V0lDT w *0* 


X 


46*49 


L STEPI * BEGINVJ 







PRTC642) 
PRTC643) 



o; 

DO UNTIL 

gti «■•" "; 

intog ♦ intog and true; x 

dlskaor * if intog then intrinsicadr else 2) 

MDESC(GTl*INFOtLAST5EaROW,LASTSEQUENCE3)* 
MDESC C GTI* INFO CLASTSEQROW* LAST SEQUENCE- 1 J); 
MDESC(GTl*lNF0tLASTSEQR0W,LASTSEQUENCE-2J); 

stmt; 

LOCK(STUFF); 

CLOSE(CARD*RELEASEJi 

IF LASTUSED K 1 THEN CLQSE< TAPE*RELEASE ) I 
IF NEWTOG THEN LOCKC NEWTAPE* * ); 

IF T*(U*3)DIV 4) + CORADR > 4060 THEN FLAG<040); 
IF NOT NOHEADING THEN X PRINT THESE THINGS IF ANY 
BEGIN X LISTING HAS BEEN DONE. 

STREAM PROCEDURE PANC T*FIEL* NeR'LSQ ) ; VALUE NER*T; 
♦SEGMENT DESCRIPTOR* 



09251244 T 
09251248 T 
09151252 T 
09151256 T 
09851260 T 
09851264 T 
09251268 T 
09151272 T 
09851276 T 
09251278 T 
09851280 T 
09251284 T 
09851288 T 
fb IS 51 LONG, 
09252000 T 
09253000 T 
09253050 T 
09853100 T 
09253500 T 
09254000 T 
09255000 T 
09275000 T 
09881000 T 
09281500 T 
09282000 T 
09282500 T 
09282600 T 
09362000 T 
09163000 T 
09364000 T 



0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
0058 
NEXT 5EG 
0058 
0060 
0061 
0064 
0067 
0069 
0072 
0074 
0075 
0076 
0078 
0081 
0084 
0088 
0089 
0089 



5 PAN 



BEGIN DI * FIEL; 44CDS«-2LIT m ">; 

SI * LSQJ DS *■ WDSi SI *FIEL** OS * 3 WOS; 

DI * FIEL; DS* 28 LIT"NUMBER OF ERRORS DETECTED ■ "* 

51 * LOC NER; DS «• 3 DEC* - 05 * 22 LIT ". COMPILATION TIME 

si ♦ loc t; os * 4 dec; os * 9 lit " seconds."/ end* 



69 



* «l 



START OF SEGMENT ********** 76 

09365000 T 0000 

09366000 T 0001 

09367000 T 0002 

09368000 T 0006 

09369000 T 0009 



PRTC644) * PEN 



STREAM PROCEDURE PEN(FlL#PRTSIZ»8A5E* C0RE*DI5K) ; 

VALUE PRTSIZ*BASE'CQRE*DISKJ 



begin di*fil; ds * 9 llt"prt 
os ♦ 3 dec; dsm4 lit" 
base; ds+4 dec; 
core; os*4 dec; 
disk; os*s dec; 



end 



SI*LOC 
SI*LQC 
Sl*LOC 

pen; 



size*"; si*lqc prtsu; 
base address*"; 
ds«-10 lit" core 

OSnO LIT" DISK 
0S*61 LIT " "; 



REQ»«; 

reos m ; 



09370000 


T 


0012 


09871000 


T 


0012 


09372000 


T 


0012 


09373000 


T 


0014 


09374000 


T 


0016 


09375000 


T 


0018 


09376000 


T 


0020 


09377000 


T 


0028 



STREAM PROCEDURE FINALAX(LINE*N* SEQ U VALUE N* 
PRT(645) * FINALAX 



09378000 T 0029 



BEGIN 01 * LINE; 15CQS * 8 LIT " - ) * 

01 ♦ LlNEi OS * 31 LIT "NUMBER OF ACCIDENTAL ENTRIES s 

si «■ loc n; os * 3 dec; di «• di+s; 
si * seq; si «■ si-16; os «■ 8 chr; 
end; 



•»; 



09379000 T 0029 

09380000 T 0031 

09181000 T 0035 

09382000 T 0036 

09383000 T 0037 



IF AXNUM XO THEN 
BEGIN 

finalaxclincoj* axnum, i nfoclastseqrow, last sequence]); 

writeuine; 

end; 

SCRAM »* CTIME(l)-TIMEU/60; 
PAN(SCRAM#IINCQJ»ERRQRCUUNTj»INFQ[LAST$EQR0W#LASTSEQUENCE-1)) 

; 

writeline; 

pen<line0]*prtimax,t|«(l*3)0iv 4, t i »coraor*t> 

((T*29)01V 30+0ISKADR)x30); 

WRITELINE; 

LOCK(HNE#RELEASE>; END; 
PRTC646) * *SEGMENT DESCRIPTOR* 

IF ERRORCOUNT t THEN 1*0/0 ELSE 
BEGIN 

ARRAY $A¥INFQC0«31#0«255]# 
PRTC6A7) * *SEGMENT DESCRIPTOR* 

STACK(F+2) * SAVINFO 

INF0C0I200,0»2553; * FOR LARGE MCP"S, 
STACK(F*3) * INFO 

INTEGER SAVNQX#NQN$AVNDX,N; 
STACK(F+4) * 5AVNDX 
STACK(F+3) * N0N3AVNDX 
STACKCF+6) = N 

INTEGER Q#J*K#M# 
STACKCF+7) * Q 
STACK(F+10) « J 
STACK(F*U) 9 K 
STACKCF+12) » M 

BOOLEAN TSSTOG; REAL T; 
STACK(F*13) « TSSTOG 
STACKCF+14) * T 

REAL PROCEDURE PUSHER(6RINCH>GQT* XMAS ); VALUE XMAS; REAL XMAS; 
PRT(650) * PUSHER 

ARRAY GOTCOJ; ARRAY GRINCH tQ>Q)i 
BEGIN 

real who#what; 



STACK(F+3) * WHO 
STACKCF+4) * WHAT 



0EFINE LINKR » C32I63#; 

IF WHOJ»XMAS.LINKC S 225 THEN 
BEGIN 
MQVEC 30# GR INCH [XMAS. LINKR, WHO]* GOT CO]); 



09384000 

09184050 
09384100 
09384500 
09384600 
09385000 
09886000 

01386500 
09B87000 
09388000 
09389000 
09389500 
09390000 



0037 

0038 
0039 
0041 
0052 
0052 
0054 

0057 
0057 
0067 
0071 
0074 
0064 



76 IS 87 LONG* NEXT SEG 

09391000 T 0092 

09392000 T 0094 

09392300 T 0095 

START OF SEGMENT ********** 

09392500 T 0003 

09393000 T 0005 



09393010 T 0005 



09393020 T 0005 



09393050 T 0005 



09393060 

09393070 
09393080 



0005 
0005 
0005 



START OF SEGMENT ********** 



09393090 T 0000 

09393100 T 0000 

09393110 T 0000 

09393120 T 0001 

09393130 T 0002 



69 



77 



78 



PUSHERI*XMAS ♦ 30; 
ENO 
ELSE BEGIN 

MQVE(WHATl»256-WHQ'GRlNCH[XMAS,lINKR#WHUJ>G0Tl0n; 
XMASI»XMAS + what; 

M0VE<WHOt»3O-WHAT# GRI NCHCXMASt LI NKR* 03 * GQTtWHATJ); 
PUSHEHI*XMAS 4 WHQJ 

end; 
end pusher; 



09393140 T 0005 



78 IS 



09393150 T 
09893160 T 
09393170 T 
09393180 T 
09193190 T 
0*393200 T 
09393220 T 
09393230 T 
20 LONG, 



0006 
0006 
0007 
0011 
0012 
0016 
0017 
0017 
NEXT SEG 



77 



PRTC651) * PU5HEE 



STACKCF+2) * I 
STACK(F+3) * J 
STACKCF+4) * X 



PROCEDURE PUSHEE(GRINCH,N#B»Y); VALUE N*B#Y; REAL N,B#Y; 

ARRAY GRINCH[0#03; 

BEGIN 

REAL I#J»Xi 



DEFINE LINKR * C32«8J#; 

ji*y; 
I»*b ♦ n; 

WHILE S < I DO 
BEGIN 

IF YUB.LINKC < 22* THEN 
BEGIN 

M0VE(3Q#CQUE(J),GRINCHCB,LINKR#Y]); 

j t *j + 30; 

BI»B ♦ 30; 

END 
ELSE BEGIN 

M0VE<Xls2S6-Y#C0DECJ)#GRlNCHCB»LlNKR,YJ)l 

bi«8 ♦ x; 

ji»j + x; 

m0ve(yj»30-x#c0de(j)#grinch[b.linkr,0 3); 
bi*»b ♦ y; 

JI»J ♦ YJ 

end; 
end; 

end pushee; 



09393240 T 0005 

09393250 T 0005 
09393260 T 0005 
09393270 T 0005 
START OF SEGMENT ********** 



79 



79 IS 



0939 

0939 

0939 

0*39 

0939 

0939 

0939 

0939 

0939 
0939 

0939 
0939 
0939 
0939 
0939 
0939 
0*39 
0*39 
0939 
0939 
0939 
35 



3260 
3290 
3300 
3310 
3320 
3330 
3340 
3350 

3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 

3480 

LONGi 



T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0002 
0003 
0003 
0005 
0005 
0011 
0012 

0013 
00J3 
0014 
0020 
0021 
0023 
0029 
0030 
0032 
0032 
0032 
NEXT SEG 



77 



STREAM PROCEDURE FIXHDRCF*N); VALUE NJ 
PRT(652) * FIXHDR 

BEGIN SI*F; SI*5I-24; OI*LOC F; o$*wds; 

si*f; 14(si«-si*8); oi*lqc f; os«-wos; 
di*f; Di*oioa; si* loc n; 
$i*5h-7; ds*chr; 
end fixhdr; 



09393700 T 0005 



09393710 
09393720 
09393730 
09193740 
09393750 



0005 
0007 
0006 
0009 
0009 



IF 



BEGIN 



LABEL EOF; 
NOT INTOG THEN 

L«-<L*3)DIV 4; COMMENT l*NUM. OF WORDS IN OUTER BLOCK* 
FILL SAVINFOCO**] WITH 

QCT77OO0000QQQ0QO15* 



QCT0253010477527705* 
OCTOO 5 lOOOOOOOOOOOO* 
OCTQ4410700Q1000062; 



end; 

00 BEGIN 
BEGIN 



y * -i; 
pusheecsavinf0#l'4'5); 
savnoxi*l; 



START 



60 



HEWIND(CODISK); 

IF HEED«0 THEN GO TO EOF; 
N«-FETCH(MKA8S(CQDE(0m-W 
IF BOOLE AN ( FETCH (MKABSCCODE(t)))) 



THEN 



PUSHEECSAVlNFO#NfSAVNDX#l)l 

Savndx«*savndx +n; 
end else begin 

if oecktog then 

stackheao[8*q*13 «■ 1024xn0n5avn0x+n> 
pushee(info#N'NOnsavndx#i); 
n0nsavndx«*((n0n5avndx ♦ n ♦ 29)div 30)x30; 
end; 

END UNTIL FALSEi 
EOFI NMSAVNQX+29) DIV 30; COMMENT NUMBEH OF DISK SEGMENTS 

OCCUPIED BY SAVE PROCEDURES AND ARRAYS* 
IF INTQG AND NOT OECKTOG THEN 
BEGIN X INTRINSIC FUNCTION OPTION 

FOR JtsUSERQPINX STEP 2 UNTIL OPARSUE 00 X JS TIMESHARING SET 

IF OPTIONSUJ ■ "^TIMES'* THEN 

BEGIN TSSTOGl-BOOLEANCOPTIONStJ+U); J I sQPARSUE END/ 

I ♦ prtbase ♦ i; j ♦ o; 

DO IF GT1 ♦ PRTtl) *Q THEN 
BEGIN 

J * j*t; 

SAVINF0CU«LINKR»J.LINKC3 * 
0&GT1C8I8I10] 
&GTlC33»18U5j; 
END UNTIL llwl +1 i PRTIMAX; 

SAVINFOCO/03 ♦ j; * • OF INTRINSICS 
SAVNDX * MAXINTRINSIC; 
END ELSE BEGIN 

I«"PRTBASE; DO IF GT1*PRTCI3*0 then 
BEGIN IF GTl.[H53*LOES THEN 
BEGIN IF (GTl*GT14(GTl.C33ll53*LJC33l33ll33) i t6l23^3 THEN 

gt1*gtu(gt1.c18i15 3+n)c18*33u5j; 
end; 

mdesccgt1#savinf0ci.linkr#i.linkc3); 
end else 5avinfou«llnkr#itlinkc3l»0 until i »*i+1*prt imax; 

mdesc(0&1c2i47i13*savinf0c0#prtba5e«13); 



09194000 


r ooio 


09394100 


T 0010 


09394200 


r oou 


09895000 ' 


r oou 


09195100 • 


r 0013 


09395200 ' 


r oou 


OF SEGMENT . 


k**#****** 


09395300 " 


r ooi5 


09395400 ' 


r ooi5 


09395500 ' 


r oois 


S 4 LONG, 


• NEXT SEG 


09395700 ' 


r 0015 


09396000 ' 


r ooi6 


09J97000 1 


r oou 


09397100 1 


r oot9 


09398000 1 


r 0019 


09399000 1 


r oo2i 


09400000 1 


r 0022 


09401000 1 


r 0028 


09402000 1 


r 0033 


09402100 1 


r 0034 


09403000 1 


r 0036 


09404000 1 


r 0037 


09405000 1 


r 0038 


09405500 1 


r 0038 


09406000 1 


r 0042 


09407000 1 


r 0044 


09408000 1 


r 0047 


09412000 1 


' 0047 


09413000 1 


0048 


09414000 1 


" 0050 


09414010 1 


r 0050 


09414020 1 


r 0052 


09414022 1 


• 0053 


09414024 1 


r 0055 


09414026 1 


0056 


09414030 1 


r 0061 


09414040 1 


• 0063 


09414050 1 


r 0065 


09414060 1 


' 0065 


09414070 1 


0066 


09414060 1 


0069 


09414090 1 


' 0070 


09414100 1 


' 0071 


09414110 1 


0073 


09414120 1 


0075 


09414130 1 


' 0076 


09415000 1 


0078 


09415500 1 


• 0081 


09416000 7 


0082 


09417000 1 


' 0086 


09417500 T 


0089 


09418000 1 


0089 


09419000 1 


0092 


09419100 1 


0097 



80 



77 



end; 



SAVNDX * 30 x N/ 



PRT(653) 9 *SEGMENT 



END 
DESCRIPTOR* 



IF NOT DECKTQG THEN 
BEGIN 

DO 
BEGIN 

II«PU3HER(SAVlNF0*ELBAT»I)i 

J»*J «• 1; 

WRITECDISK#30*ELBATC*J); 
END UNTIL I i SAVNDX; 

11*0; 

WHILE I < NONSAVNOX DO 
BEGIN 

J»sPUSHERCINFO»ELBAT,I)J 

WRITE<DISK,3Q»ELBATC*]); 
ENDI 

N*IF INTOG THEN IF T55T0G THEN 

TSSINTYPE ELSE DCINTYPE ELSE MCPTYPEi 
FIXHDRCDISK*N); 
LOCK(DlSK#*)j 
END ELSE 
BEGIN ELBATC03*0; 1*16; 

DO BEGIN MQVEC8#SAV1NF0CI.LINKR#I,LINKCJ#ELBATCU); 
ELBATC«3*B20( 1*96 J41U1 14711 3 *C 1+96 H 231 35U3J 
WRITE(DECK#10#ELBATC*3); 
END UNTIL I*I*825AVNDX; 
FILL ELBATC*J WITH 0* 

OCT7500000000000012# 
0CT0O045355306il765> 
0CT700600040a2t0ft35* 
OCT7700000000000015* 
0CTO253010A77527705* 
OCT005I0000044I0046* 
0CT044l07000l000062# 
0CT00404i3i0O00OOO0# 

octooo i ooooooooo io i; 

WRITE(DECK*10,ELBATC*3); 
ELBATCO] *0&REAL(DECKT0G)C 1 1 191 17] J 
FOR I ♦ STEP I UNTIL Q DO 

BEGIN K * STACKHEADCI3.C23I13]; 
M * STACKHEADCI].C38I103; 
FOR J + STEP 8 UNTIL M DO BEGIN 

M0VE(8#INF0t(J+K),LINKR#<J+K),LlNKC]* 

ELBAT CU); 
ELBAT[9] * B20<J)&"310 f, U»3lll73; 
wRlTE(0ECK»10,ELBATt*3) END; 

end; 

END END PROGRAM; 



09420000 

09420010 
09420020 
09420100 
09421000 
09421500 
09422000 
09423000 
09424000 
09425000 
09425900 
09426000 
09427000 
09427100 
09427200 
09427500 
09426000 
09429000 
09430000 
09430050 
09430060 
0943007b 
09430100 
09431000 
09432000 
09433000 
09434000 
09435000 
09436000 
09437000 
START OF SEGMENT 
09438000 
09439000 
09440000 
09441000 
09442000 
09443000 
09444000 
09445000 
09446000 
81 IS 10 LONG 
09447000 
09447010 
09447020 
09447030 
09447040 
09447050 
09447060 
09447070 
09447080 
09447090 
09447100 
09448000 



0101 

0102 
0102 
0104 
0104 
0105 
0106 
0106 
0106 
0109 
0110 
0114 
0U5 
0116 
0118 
0118 
0121 
0122 
0126 
0127 
0128 
0131 
0132 
0134 
0134 
0137 
0140 
0145 
0149 
0151 
********* 

0153 
0153 
0153 
0153 
0153 
0153 

0153 
0153 
0153 
NEXT 5EG 
0153 
0157 
0160 
0162 
0163 

0165 
0166 
0169 
0170 
0173 
0179 
0182 



81 



77 



77 
69 



IS 
IS 



186 
ltl 



LONG* 
LONG* 



NEXT 
NEXT 



SEG 

SEG 



69 
3 



COMMENT THIS SECTION CONTAINS GENERATORS USED BY THE BLOCK ROUTINE/ 

procedure definegencmagkq,u); value macro, j; boulean macro; REAL J J 

PRT(654) ■ DEFINEGEN 

BEGIN 

OWN INTEGER CHARCOUNT, REMCOUNT; 

PRTC655) » CHARCOUNT 
PRTC656) * REMCQUNT 

COMMENT CHARCOUNT CONTAINS NUMBER OFCHARACTORS OF THE DEFINE THAT WE 
HAVE PUT INTO jNFQt REMCOUNT CONTAINS NUMBER OF CHARACT- 
ORS REMAINING IN THJS ROW OF INFO; 
PROCEDURE PUTOGETHER(CHAR); REAL CHAR; 
PRT<657) * PUTOGETHER 

BEGIN 
STREAM PROCEDURE PACKINFQC INFO* JSKIP, COUNT* ASKIP, ACCUM ); 



10O0OOOO T 0466 
10228000 T 0468 



10229000 T 
10230000 T 

START OF SEGMENT 



0468 
0466 

********** 



10231000 T 0000 

10232000 T 0000 

10233000 T 0000 

18134000 T 0000 



PRTC660) * PACKINFO 



10235000 

18236000 

START OF SEGMENT 



T 0000 

T 0000 
********** 



VALUE ISKIP, COUNT, ASKIP; 

BEGIN DI ♦ info; DI * oi+iskip; 

si ♦ accum;si ♦ si+askip; si * si*3; 

DS * COUNT CHR END PACKINFO; 



18237000 T 0000 

10238000 T 0000 

18239000 T 0000 

10240000 T 0001 



82 



83 



STACK(F+2) 
STACKCF+3) 



COUNT 
SKIPCOUNT 



INTEGER COUNT, SKIPCOUNT; 



IF (COUNT * CHAR.C12I6J) ♦ CHARCOUNT > 2047 
THEN BEGIN FLAGCU2}; TBI* TRUE ENO 
ELSE BEGIN 

iF COUNT > REMCOUNT 
THEN BEGIN 

SKIPCOUNT * COUNT-(COUNT*REMCOUNT); 
REMCOUNT * 2047 END 
ELSE REMCOUNT ♦ REMCQUNT-COUNTl 
GT1 ♦ CHARCOUNT DI V 8 + NEXTINFO; 

PACKlNFO(INFOCGTl.LlNKR,GTl.LlNKC3*CHARCOUNT.t45l3)# 
CQUNT'O'CHAR); 
IF SKIPCOUNT * THEN 

PACKINFOClNFOt NEXTINFO. LINKR+1#0J#0* SKIPCOUNT* 
COUNT, CHAR); 
CHARCOUNT * CHARCOUNT+SK IPCQUNT+COUNT END 
END PUTOGETHER; 



10241000 T 0002 



19242000 

10143000 

10144000 

19245000 
10246000 

10247000 
18248000 
10249000 
10250000 
10251000 
10252000 
10253000 
10254000 
10255000 
10256000 
10257000 



83 IS 32 LONG, 



0002 

0004 

0007 

0009 
0009 

0010 
0012 
0012 
0016 
0018 
0021 
0022 

0023 
0026 
0027 
0029 
NEXT SEG 



82 



PRTC661) ■» SCAN 



stream procedure scan(d,s, q,n, j )) value j,n,«; 
begin di*d;di*di*u;si*s;si*si*3; 

IF N SC*DC THEN 

IF SC>"0" THEN 

BEGIN DI*LQC J; 0I»DI*7J 



10257100 T 0000 



10857200 
10157300 
10857400 
10157500 



0000 
0001 
0001 
0002 



END END 



IF SCSOC THEN 

fclEGIN J^SUDI^SIHQC a;SI«-SI+6J0S*gHR^ 

di*s;di*di+2;ds*chr; 
end; 



10257600 T 0003 

10257700 T 0004 

10257800 T 000$ 

10257VQ0 T 0006 



STACK(r*2) * LASTRESULT 



STACK(F*3) 
STACKCF+4) 
STACKCF+5) 



* K 

* N 

* ELCLASS 



BACKI 
SKSCI 



FINAL* 



PACKINI 



INTEGER LASTRESULT; 
REAL K#N»ELCLASS; 



define i»nxtelbt#; 

label final#packin> 

label back>sksc#exlt; 

tbi* false; 

charcount*( next info-last info )x8; 

oefinectr * i; lastresult * 2; 

REMCOUNT ♦ (256 • NEXTINFO MOO 256) x a; 

nextinfq*lastinfq; 

IF J*Q THEN N«-TAKECLASTINFQ*n,Cl2l63; 

k«-o; 

stopdefine*truc; 

elclass*tablE(nxtelbt); 

NXTELBT*NXTEL8T-i; 

IF MACRO THEN 

BEGIN IF ELCLASS»CUMMA THEN 

IF K*0 THEN 

BEGIN PUTQGETHERCUOOOO"); GO TQ EXIT END 

ELSE GO packin; 

IF ELCLASS*LEFTPAREN OR ELCLASS=LFTBRKET THEN 

begin k*k*i; go TQ packin lnd; 

IF ELCLASS»iRTPAREN OR ELCLASS*RTBRKET THEN 
IF K«"K"t<0 THEN GO FINAL ELSE GO PACKIN; 
IF ELCLASS.SEMICOLON THEN 

BEGIN FLAGCH2); GO TO FINAL END ELSE GO PACKIN 



end; 



IF 
IF 



IF 



J*<Q THEN 

ACCUMC1].C12!6]-1*N THEN 
SCANCINFOCLASTINFO, LINKR 
ACCUMC13,N+770#N#J); 



»LASTINFO, LINKCJ* 



RESULT m 4 
THEN BEGIN 
COMMENT INSERT » MARKS • 2130706432 IS DECIMAL FOH i»QOOO; 

PUT0GETHEKC21 30706432); 
PUTOGETHERCACCUMtl]); 
PUT0GETHERC2130706432) END 
ELSE BEGIN 

IF BOOLEAN<RESULT) AND BOOLEANCLASTRESULT ) 

THEN PUTQGETHERC"! 0000 M ); COMMENT INSERT BLANK; 
PUT0GETHER(ACCUMC13) END; 
IF TBI THEN GO TO EXIT; 
LASTRESULT ♦ KESULT; 
IF MACRO THEN GO BACK/ 



10258000 


T 0007 


10258100 


T 0007 


10258200 


T 0007 


10258300 


T 0007 


10259000 


T 0007 


10|60000 


T 0007 


10261000 


T 0007 


10g62000 


r 0009 


10263000 


r ooii 


10263100 


T 0013 


10263110 


r 0014 


10263200 


T 0017 


10263300 


r ooie 


10263400 " 


r 0019 


10263500 ■ 


r oo2i 


10263600 ' 


r 0022 


10263700 ' 


r 0022 


10263800 ' 


r 0023 


10263900 1 


r 0025 


10264000 ' 


r 0029 


10264100 1 


r 0029 


10264200 1 


r ooio 


10264300 1 


r 0033 


10264400 1 


r 0034 


10264410 1 


r 0038 


10264420 1 


r 0038 


10264500 1 


r 0040 


10264600 1 


" 0040 


10264700 1 


' 0041 


11264800 1 


' 0043 


18264900 1 


0046 


10264910 1 


■ 0048 


10265000 1 


' 0049 


19266000 1 


0049 


12267000 7 


0050 


12268000 1 


0050 


19269000 1 


0051 


10270000 t 


0052 


10271000 1 


0052 


10272000 1 


0055 


10273000 T 


0055 


10274000 f 


0057 


10275000 7 


0058 


19276000 T 


0059 


10276500 T 


0059 



EXIT! 



END 



IF ELCLASS«DECLARATORS AND ELBAU 13 . ADDRESS ■ 
THEN BEGIN UEFINECTR ♦ DEFINECTR+W GO BACK 
IF ELCLASS * CROSSHATCH THEN GO BACK; 
IF DEFINECTR * I 

THEN BEGIN 5T0PDEFINE «• TRUE; 

IF ELCLASS*TABLEU)*CUMMA THEN 
DEFINECTR«-DEFINECTR-1; GO SK5C END; 
DEFINECTR* 0; 

NEXTINFO *-<CHARC0UNT + 7) DJV 8 + NEXTlNF0i 
DEFINEGENi 



DEFINEV 


10277000 T 


0060 


ENO; 


10178000 T 


0062 




10279000 T 


0067 




10280000 T 


0068 




10281000 T 


0068 




10282000 T 


0070 




10283000 T 


0072 




10284000 T 


0074 




10285000 T 


0075 




11286000 T 


0078 



82 IS 81 LONG, NEXT SEG 



STACK(F+2) s S 
STACK(F*3) * T 



PROCEDURE D81STMTJ 
BEGIN 
REAL S>TJ 



LABEL L1»L2,L3,EXIT; 

s«»o; 

IF STEPIXLEFTPAREN THEN ERRC28P 
ELSE 
Ll> BEGIN 

IF STEPI'COMMA THEN 
BEGIN 

optog*true; 

IF ST£PI*AD0P then stepit; 

emitnumcnloj; 

emitnumcif elbau imj t address *sub then -nhj else nhi); 

dptog*false; 

stepit; 

GO TO L2J 

end; 

if table(i*1)«c0mma then 

BEGIN 

IF elclass»adop OR ELCLASS«MULOP THEN 

BEGIN 

EMIT0(ELBATCI],ADDRESS+1); 

IF S*S-tSO THEN FLAGC282); STEPIT; 

GO TO L3; 

end; 
if elclass.assignop then 

BEGIN 

IF 5*1 THEN FLAGC283); S*0; STEPIT; 

DO 

BEGIN 

if elclass 'comma then begin err<284);g0 exit end; 
stepit; 

if elclasssintid and elclassireallo then 
begin emitncelbatu3. address}; stepit end 

ELSE VARUBLECFDJ 
EMITO(STD) END UNTIL S*S+1*2 ; 
IF ELCLASSfRTPAREN THEN ERR<285) ELSE STEPIT; 
GO TO exit; 



START 



12002000 


r 0468 


12003000 


r 0468 


12004000 ' 


r 0468 


of Segment i 


********** 


12005000 ' 


r oooo 


12006000 • 


r oooo 


12007000 i 


r oooo 


12008000 ' 


r 0002 


12009000 l 


r 0003 


12010000 1 


r ooo4 


120U000 < 


r 0005 


12012000 1 


r 0005 


12013000 * 


r 0006 


12014000 1 


r ooos 


12015000 1 


r 0009 


12016000 1 


r 0013 


12017000 1 


r ooh 


12018000 1 


r oom 


12019000 1 


r oots 


12020000 1 


r 0015 


12021000 1 


r ooi6 


12022000 1 


r 0017 


12023000 1 


r 0019 


12024000 1 


r ooi9 


12025000 1 


r 0021 


12026000 1 


r 0025 


12027000 1 


r 0025 


12028000 1 


r 0025 


12029000 1 


r 0026 


12030000 1 


r 0026 


12031000 1 


r 0030 


12632000 1 


r 0030 


12033000 1 


r 0030 


12934000 1 


r 0032 


12035000 1 


' 0033 


12036000 1 


r 0034 


12f|7000 ^ 


• 0037 


12038000 1 


r 0038 


12039000 1 


r 004i 


12040000 1 


r 0044 



84 



L2< 
131 

EXIT1END 
END 



end; 
if elclasssintio and elclassibooiu then 

BEGIN 
CHECKER(T*ElBATCn>* 

stepit;$tepit; 
aexp; 

EMITV(T, ADDRESS); 

go to ia; 

end; 
end ; 

aexp; 

if elcla3s*c0mma then begin ehk(284);gq exit 

end; 

stepit; aexp; emitqcxchj; 
s*s+i; 

if euclassxcomma then begin errc284);6q to exit end; 
go to u; 

D8LSTMT; 



84 IS 



12041000 T 

12042000 T 
12043000 T 
12044000 T 
12045000 T 
12046000 T 
12047000 T 
12048000 T 
12049000 T 
12850000 T 
12051000 T 
12052000 T 
12053000 T 
12054000 T 
18055000 T 
12056000 T 
18057000 T 
18058000 T 
12059000 T 
65 LONG, 



0045 

0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0052 
0052 
0052 
0055 
0055 
0056 
0058 
0061 

0062 
0062 
NEXT SEG 



REAL PROCEDURE F IXDEFI NElNFOC T )> VALUE T; REAL T; 
BEGIN REAL K,S#P,J#EL; 



STACKCF+3) * K 

STACKCF+4) 9 S 

STACKCF+5) * P 

STACKCF+6) k J 

STACKCF+7) * EL 

PRT(662) * SET 



START 



stream procedure set cs#d* k> e ); value k>e; 

begin sus;si«-si + ii;dwd;di«<di + 3;ds4-k chr; 

smoc e; si*si+6; ds*2 chr; 
end; 



12101000 

12102000 

OF SEGMENT 



T 0468 

T 0468 

********** 



85 



12103000 T 0000 



19104000 
12105000 
12106000 



0000 
0001 
0002 



macroid*true; 

P*<FlXDEFlNElNFO*n.ADDRESS; 

iucqunt; 

s*scram; 

streamtog*true & streamtogt 1 * 3 i 45] ; 

stopdefine*true; 

el*tablecnxtel8t); 

nxtelbt*nxtelbt-i; 

if el*leftparen and el'lftbrket then 

FLAG(141) 
ELSE 00 BEGIN J*J+i; 

5ET(INF0IT t LlNKR,T,LlNKC]»ACCUMCU#K,64xj*12); 
ACCUMtn,U2l6J+K + 2; 

accumcoj»oi 
accumco].class*definedid; 

C0UNT«-K*2; 



12107000 
12108000 
12109000 
18110000 
12110100 
12111000 
12112000 
12113000 

12114000 
12115000 
12116000 
12117000 
12119000 

12119000 
12120000 

12121000 



0002 

0003 
0005 
0006 
0007 
0008 
0009 
0010 
0012 
0013 
0014 
0017 
0022 
0025 
0026 
0028 



END* 



SCRAM+ACCUMCU MOD 125; 

a 

DEFINEGENCTRUEfQ)/ 
END UNTIL EL*ELBAUNXTELBTJ»CLASS*CQMMA; 

if el'rtparen and el*rtbrket or j*p then flagc141); 

macroid*false; 

streamt0g«-str£amt06,c1u5j ; 



12122000 
12123000 
12120000 
12125000 
12126000 
12127000 
12127100 
12126000 



0030 
0031 
0032 
0033 
0035 
0039 
0040 
0042 



85 IS 46 LONG* NEXT SEG 



PROCEDURE SCATTERELBAT; 
BEGIN 

REAL M 



STACK(F+2) * T 



START 



END 



T ♦ EL8ATLIJJ 

KLASSF ♦ T, CLASSY 

FQRMALF ♦ BOOLEANCT, FORMAL); 

VONF * BOQLEANCTtVU); 

LEVELF * T.LVLi 

adorsf «• t.aodress; 
incrf ♦ t.incr; 

LINKF * TtUNK; 

scatterelbat; 



1B197000 


T 


0468 


13198000 


T 


0468 


13199000 


T 


0466 


OF SEGMENT 


********** 


13200000 


T 


0000 


13201000 


T 


0001 


13202000 


T 


0002 


13203000 


T 


0003 


13204000 


T 


0004 


13205000 


T 


0006 


13806000 


T 


0007 


13207000 


T 


0008 


13206000 


T 


0009 



86 



86 IS 12 LONG, NEXT SEG 



PROCEDURE CHKS08* 

PRTC663) * CHKSOB 

IF GTAiN»J»n*0 THEN FLAGC23); 



13209000 T 0468 
13210000 T 0468 



DEFINE 

A0DC«532480#' 
SUBC»1581056## 

emitstore'EMItpair*; 
procedure purgecstopper)! 
value stopper; 
real stopper; 



STACK(F*2) * 



STACKCF+3) 
STACK(F+4) 
STACKCF+5) 
STACKCF+6) 
STACK(F+7) 



BEGIN 
INTEGER 



POINTER 

LABEL 



pointer; 



13211000 
11212000 
13213000 
13gl«000 
13215000 
13116000 
13217000 
13318000 
13219000 
START OF SEGMENT 



0472 

0472 
0472 
0472 
0472 
0472 
04 72 
0472 
0472 



********** 



87 



J 
N 
OCR 

TL 

ADD 



RECOV; DEFINE ELCLASS * KLASSF#; 
REAL J'N*0CR*TL'A0D; 



13220000 T 0000 
13221000 T 0000 



POINT 
WHILE P 
00 

BEGIN 



ER*lASTINFOi 
OINTER i STOPPER 

IF ELCLASS* (GTl*TAKECPOINTER))tCLASS*NQNL I TNQ 

THEN BEGIN 

NCII*NCII-U 

iMITNUH(TAKE(PO!NTER*n); 

EMIT5T0RECMAXSTACK»STD); 

MAXSTACK*(G*MAXSTACK)+i; 

J*L; L*GT1.LIN«; 
00 

BEGIN 

GT4*GET(U); 
EMITVCG) 
ENO 
UNTIL <L*GT4)«4095; 
L*JJ 

P0INTER*P01NTER«GT1,INCR 
ENO 
ELSE 
BEGIN 

IF NOT BOOLEANCGTi. FORMAL) 
THEN BEGIN 

IF ELCLASS 9 LABELIO 
THEN BEGIN 

ADD *■ GTliADDRESS; 

IF NOT BOOLEAN(OCR*TAKE(GlTCPOINTERn J.CIIU 
THEN IF QCR.C36U2J , OR AQQ X 

THEN BEGIN GTl * 160; GO TO RECOV ENO* 
IF AOO * THEN 
PRQGDtSCBLDR(ADD»TNUE>QCR,C36llO]#LDES) END 

ELSE IF FALSE 

THEN BEGIN 

IF TAKECP0INTER+1) < 

THEN BEGIN GTl * 162; GO TO RECOV END; 
OCR *<J * TAKE(GIT(P0INTER)))«t24»l2]; 
N * GETC U«-J,C36iUJ)+4); TL ♦ Li 
IF ADD ♦ GTl.ADDRESS X 
THEN BEGIN 

IF OCR * 
THEN BEGIN L*0CR-2; CALLSWlTCHCPOINTER ); EMITOC BFW );END; 
L*J+1W EMITLH5); EMITO(RTS); 
FOR J * 4 STEP 4 UNTIL N 
00 BEGIN 

EMlTL(GNATCGETCL)x*096+GET<L*l))); 
EMITOCRTS) END END 
ELSE BEGIN 
L * J*13; 

FOR J * 4 STEP 4 UNTIL N 
DO BEGIN 

GTl ♦ GET(L)x4096+GETCL*l); 
GOGEN(GTl'BFW) ENDUND; 
L * TL END 
ELSE IF ELCLASS 2 PROCIO AND ELCLASS S INTPROCIO 
THEN IF TAKE(P0INTER*1) < 



132220Q0 


T 0000 


13823000 


T 0000 


13224000 


T 0001 


13123000 


T 0002 


13226000 


T 0002 


1322/000 


T 0004 


11228000 


T 0005 


13229000 


T 000« 


13230000 


T 0008 


13231000 ' 


T 0009 


13232000 


r ooii 


13233000 


T 0013 


13234000 


T 0014 


13235000 


r 0014 


13236000 ' 


r ooi5 


13237000 


T 0015 


13238000 ' 


r 0016 


13239000 


T 0017 


13240000 


r 0018 


18241000 • 


r 0018 


13242000 ' 


r 0020 


13243000 ' 


r 0020 


13244000 ' 


r 0022 


13245000 ' 


r 0022 


13246000 • 


r 0023 


13247000 ' 


r 0023 


19248000 ' 


r 002a 


13249000 • 


r 0026 


13250000 1 


r 0028 


13251000 ' 


r 0030 


13852000 1 


r 0033 


13252500 1 


r 0033 


13853000 1 


r 0036 


13254000 1 


r 0037 


13255000 1 


r 0037 


13256000 1 


r 0038 


13257000 1 


r oo4i 


13158000 1 


r 0043 


13259000 1 


r 0047 


13260000 1 


• 0048 


13261000 1 


r 0049 


13262000 1 


■ 0049 


13263000 1 


0049 


11264000 1 


' 0053 


1S165000 1 


• 0056 


11266000 1 


' 0056 


18267000 1 


• 0057 


13268000 1 


0060 


13869000 1 


0063 


13270000 T 


0066 


13271000 T 


0067 


13272000 T 


0067 


13|73000 T 


0068 


13274000 1 


' 0071 


13277000 T 


0074 


13278000 T 


0075 


13279000 T 


0078 



then begin gt1 ♦ j6u 
recovj mqve( 9* info [pointer. linkr*pqinter,linkc j *accum>; 

q «• accumcui flag(gtt); errortog * true end 
end; 
gt2*takecpqinter+1); 
gt3*gt2,purpt; 
stackheadtc0&gt2c12«12l36])mq0 1253 *take cpq inter ) .l ink* 

P0INTER«-P0INTER-GT3 

ENO 
END i 
tASTlNFO*PQINTER* 
NEXTlNFO*STOPPER 

end; 



13280000 
13281000 
13182000 
13883000 
13284000 

13285000 
13286000 
13887000 
1BB88000 
13289000 
13290000 
13291000 
13292000 



0080 
0082 
0086 
0089 
0089 

009Q 
0092 
0095 
0096 
0097 
0097 
0098 
0098 



87 IS 103 LONG* NEXT SEG 



STACKCF+2) 
STAcKCF+3) 



PROCEDURE E; 
COMMENT 

E IS THE PROCEDURE WHlqH PLACES AN ENTRY IN INFU AND 
HOOKS IT INTO STACKHEADt THE PREVIOUS STACKHEAD LINK 
IS SAVED IN THE LINK OF THE ELBAT WORD IN THE NEW ENTRY 
E PREVENTS AN ENTRY FROM OVERFLOWING A ROW, STARTING AT THE 
BEGINNING OF THE NEXT ROW IF NECESSARY 
BEGIN 

REAL W0RDC0UNT*RINX; 

WORDCOUNT 
RINX 

IF «INX*CNEXTINF0+WQR0C0UNT*(CQUNT+18)DIV 8 J.LINKR t 
NEXTINFQ.LINKR 
THEN BEGIN PUTC 125&< RINXX256*NEXT INFO) C27 I 401 8 ]* NEXT INFQ ) J 
NEXTlNF0*256xRINX END' 
IF SPECTOG THEN 
IF NOT MACROID THEN 
UNHOOK! 

accumcqj.incr«-wqrocqunt; 
if not inlinetog or macroid then begin 
accumco].link *stackheadcscram];stackheadcscramj*nextinfq; 

end; 
accumci3.purpt»nextinfu-lastinfo; 
move < wordcount* accum* i nfo[ next info.linkr, next info. linkc3); 
lastinfo^nextinfo; 
nextinfo*nextinfo+wordcount 
end; 



13893000 T 0472 



13294000 
13295000 
13296000 
13897000 
13298000 
13299000 

13300000 
13301000 



0472 
0472 

0472 
0472 
0472 
0472 
0472 
0472 



START OF SEGMENT ********** 



88 



88 IS 



13302000 T 

13303000 T 

13304000 T 

13305000 T 

13305100 T 

13305200 T 

13305300 T 

13306000 T 

13307000 T 

13307500 T 

13308000 T 

13308500 T 

18309000 T 

13310000 T 

13311000 T 

13312000 T 

13313000 T 
30 LONG* 



0000 

0003 
0003 
0007 
0009 
0009 

ooio 

ooii 
oou 

0013 
0015 
0019 
0019 
0022 
0025 
0026 
0026 
NEXT SEG 



PROCEDURE 



COMMENT 



ENTRY(TYPE); 
VALUE type; 
seal type; 



ENTRY ASSUMES THAT I IS POINTING AT AN IDENTIFIER WHICH 



13314000 T 0472 

13315000 T 0472 

19316000 T 0472 

13317000 T 0472 

13318000 T 0472 



AND 



IS BEING DECLARED 

ACCORD TO TYPE 

A SPECIFICATION THEN 



MAKES UP THE Et»BAT ENTRY F OR IT 
•IF THE ENTRY IS AN ARRAY AND NOT 
A DESCRIPTOR IS PLACED IN THE STACK 
FOR THE UPCOMING COMMUNICATE TO GET STORAGE FOR THE ARR 
BEGIN 

j«-om*i*i; 

DO 

BEGIN 

stopdefine *true; stepit; scatterelbat; 
if formalf*spectog 

THEN 
BEGIN 
IF ELCLASSXSECRET 
THEN FLAG(QQ2)J 

BUP*BUP+l 

; klassf**ype;makeupaccum; e;j*j*i; 

END 
ELSE 
BEGIN 
IF ELCLASS>IOMAX 

then if elclass* polishv then elclass*type else 
if levelf'level 
then flagcoou; 

V0NF*P2i 

formalf*ptogj 
klassf*type; makeupaccum;e; j*j+i; 
if (cformalf*ptogj or(streamtog and not stopgsp)) and not 

THEN ADDRSF»PW*PJ*l 
ELSE IF STOPGSP 

THEN ADORSF*Q 

ELSE AQDRSFl*GETSPACE<P2#LA3TlNFQn); 
PUT CTAKEC LAST INFO)* ADDRSFC16I 37 | U J # LAST INFO) J 
END END 



end; 



until stepi*comma or stqpentry; gtaicqj*j 





12319000 T 


0472 




13320000 T 


0472 




13321000 T 


0472 


>y(sj ; 


13322000 T 


0472 




13323000 T 


0472 




13324000 T 


0472 




13325000 T 


0475 




13326000 T 


0475 




13327000 T 


0475 




13328000 T 


0476 




13329000 T 


0476 




13330000 T 


0477 




13331000 T 


0478 




18332000 T 


0478 




13333000 T 


0460 




13333500 T 


0480 




13334000 T 


0484 




13335000 T 


0484 




13336000 T 


0484 




13337000 T 


0484 


FLAGC3); 


13338000 T 


0485 




13339000 T 


0489 




13340000 T 


0489 




13841000 T 


0491 




13341100 T 


0492 




13342000 T 


0492 


P2 


13343000 T 


0495 




13344000 T 


0497 




13345000 T 


0499 




13146000 T 


0501 




13347000 T 


0502 




11848000 T 


0505 




13349000 T 


0507 




13350000 T 


0507 




13351000 T 


0507 




18352000 T 


0510 



PROCEDURE UNHOOKS 
COMMENT 

UNHOOK ASSUMES THAT THE WORD 
FOR APARAMETER.ITS JOB IS TO 
E WILL WORK AS NORMAL* 
BEGIN 

REAL LINKT#A#LINKP; 



IN ELBATCH 
UNHQOK THAT 



POINTS TO A 
FALSE ENTRY 



PSUEDO ENTRY 
SO THAT 



STACK(F+2) • L 
STACKCF+3) « A 
STAQK(F+4J * L 



INKT 
INKP 



13353000 T 0511 

13854000 T 0511 

13355000 T 0511 

18356000 T 0511 

13357000 T 0511 

18358000 T 05U 

13359000 T 05U 
START OF SEGMENT 



********** 



LABEL L; 



LI 



LINKT*STACKHEADCSCRAMJ ; LINKP*ELBAT[ I J .LINK; 

IF LINKTwLINKP THEN STACKHEADC SCRAM ]* TAKEC LINKT >, LINK 
ELSE 
IF A*TAKE(LINKT).LINK«LINKP 
THEN PUT<<TAKECLINKT>)&(TAKECA)H35I35I13]*LINKT) 



13360000 T 0000 

13361000 T 0000 

13862000 T 0002 

13363000 T 0005 

13364000 T 0006 

13365000 T 0008 



89 



ELSE BEGIN LINKT*A; GO TO L END* 



END) 



89 



13866000 T 

1B367000 T 

IS 17 UQNG, 



0013 

ooia 

NEXT SEG 



PROCEDURE MAKEUPACCUM; 
BEGIN 

IF PTOG 

THEN GTULEVELF ELSE GTK-LEVELJ 
ACCUMCOJ* A8SULBATCI] & KL ASSFC2 I 411 7} & REALC FQRMALF ) [9 I 47 I 1J 

& REAL(V0NF)C10I47*13 & GTl [ 1 1 t 43« 5 1 &ADORSF U6 » 37 1 1 1 j 
) 

end; 



13868000 
13369000 
13870000 
13371000 
13872000 
13373000 
18374000 
13375000 



06U 
0611 
0511 
0512 
0514 
0517 
0520 
0520 



PRTC664) • ARRAE 



PROCEDURE ARRAEi 

BEGIN 

INTEGER SAVEINFO; 



13376000 T 0521 



STACKCF+2) s SAVEINFO 

LABEL BETAi; 

typev*realarrayid; 

IF Tl*GTAltJ*J»n»0 THEN J*J + 1 

ELSE 

IF Tl*OWNV THEN 
BEGIN 

P2*TRUEMF spectog then 

FLAGU3J 
END 

ELSE 
TYPEV*REALARRAYIQ+T1*REALV; 
BETAI* ENTERCTYPEV)i 

IF ELCLASSXLFTBRKET THEN FLAG(16>; 
IF STEPI*LITN0 THEN 
BEGIN 

SAVE INF0*ELB AT CM. ADDRESS; 

IF STEPIHRTBRKET THEN FLAGC53); 

FILLSTMT(SAVEINFO); 
SAVEiNFO*i; 

END 

ELSE 

begin if elclassjastri5k then flagc56); 
saveinfo»i; 
while stepi^rtbrket do 

begin if elclass*cqmma and 

3tepi*astrisk then flagc56)* 
saveinf0*saveinf0+1 
endjstepitj 

end; put(take<lastinfq)&saveinf0c27i40i8j#lastinfu)j 

j «• i ; gtaho] * o ; 

IF elclass«comma then begin stepit;go to BETAI end 



START 



13377000 ' 


r 0521 


13378000 


r 0521 


OF SEGMENT - 


********** 


13379000 ' 


r oooo 


13380000 ' 


r oooo 


13381000 ' 


r oooo 


13382000 ' 


r 0004 


13383000 1 


r 0005 


13384000 1 


r 0006 


13885000 i 


r 0006 


13386000 1 


r ooo7 


13387000 1 


r oooe 


13388000 1 


r 0009 


13389000 1 


r 0009 


19190000 1 


r oou 


13391000 1 


' 0012 


13392000 1 


r 0014 


13393000 1 


r 0015 


13394000 ' 


r oot6 


13395000 1 


• 0017 


13396000 1 


r 0020 


13397000 1 


r 0020 


13398000 1 


r oo2i 


13399000 1 


r 0021 


13400000 1 


0021 


18401000 1 


• 0024 


13402000 1 


0024 


13403000 1 


0026 


13404000 1 


0027 


13405000 1 


0029 


13406000 1 


0030 


13407000 1 


0032 


13408000 1 


' 0032 


13408500 1 


0034 


13409000 1 


0036 



90 



END ARRAC; 



11410000 T 0036 
90 IS 41 LONG, NEXT 3EG 



PROCEDURE 



BEGIN 



END ; 



PUTNBUMP(X); 

VALUE Xi 
REAL X; 



INF0£NEXTINF0,LINKR*NEXTINF0.LINKC3*-X; 
NEXTINFO*NEXTlNFO+i 



13589000 
11390000 
11991000 
11592000 
13993000 
13394000 
13995000 



0521 

0521 
0521 
0521 
0521 
0325 
0525 



PROC 
COMME 



IF NO 

BEGIN 

IF 



BE 



EN 



end; 



EDuRE JUMPCHKX; 

NT THIS PROCEDURE IS CALLED AT THE START OF ANY EXECUTABLE CQOE 
WHICH THE BLOCK MIGHT EMiTtIT DETERMINES WHETHER ANY JUMPS 
ARBQUND NONEXECUTABLE CODE MAY BE WAITING AND WHETHER IT 
IS THE FIRST EXECUTABLE CODE; 

T SPECTOG THEN 

AJUMP 
THEN 

GIN adjust; 

EMI*B(BFW#SAVEL'L) 
D ELSE 

IF FIRSTX*4095 
THEN 
BEGIN 

adjust; 
firstx*l; 

end; 

AJUMp*FALSE 



13596000 
13997000 
13998000 
13999000 
13600000 
13601000 
13602000 
13603000 
13604000 
13605000 
13606000 
13607000 
13608000 
13609000 
13610000 
13611000 
13612000 
13613000 
13614000 
13615000 



0526 
0526 
0526 
0526 
0526 
0526 
0527 
0528 
0528 
0528 
0529 
0530 
0330 
0331 
0531 
0332 
0532 
0533 
0533 
0533 



PROC 
COMME 



IF NO 

BEGIN 

IF 



end; 



eduRE jumpchknx; 

nt jumpchknx determines whether any executable cooe has been 
emitted and if 80 whether it was just previous to the 
non executable about to be emltteotjf both then l 15 bumped 
and saved for a later branch; 

t spectog then 

FlRSTX/4095 
THEN 
BEGIN 
IF NOT AJUMP 
THEN 

SAVEL+BUMPLJ 
AjUMPfrTRUE 

end;adjust 



13616000 
13617000 
13618000 
13619000 
13620000 
13621000 
13622000 
13623000 
13624000 
13625000 
13626000 
18627000 
13628000 
13629000 
13630000 
13631000 



0536 
0536 
0536 
0536 
0536 
0536 
0536 
0537 
0537 
0537 
0538 
0338 
0338 
0541 
0541 
0541 



PROCEDURE SEGMENTSTARTCSAVECODE)>VALUE SAVECQDE; BOOLEAN SAVECODE; 
8E«IN 
STREAM PROCEOURE PRINTCSA VECOOE,ADR#FIEL ) ; VALUE SAVECODE* ADR; 



PRTC665) * PRINT 



m 



13632000 T 0544 

13632100 T 0544 

13633000 T 0544 

START OF SEGMENT ********** 



91 



BEGIN 
LABEL LW 

DI»»FIELi 0Sl*8 LIT" "/ 

SII*FIELJ 051*9 WOSJ 0I«sDI-3; 

savec0decdsi*38 lit "start of save segment; base adoress * "; 

jump out to li); 
dst*38 lit " start of rtl segment; disk address * "; 

simloc adr; dsi»5 dec; 
eno print; 



13634000 
13635000 


T 
T 


0000 
0000 


13636000 
13637000 
13638000 


T 
T 
T 


0000 
0001 
0002 


13639000 
13640000 


T 
T 


0008 
0009 


13641000 
13642000 
13643000 


T 
T 
T 


0014 
0014 
0014 



M0VE<l'$AVECQDE#CO0ECQ>>; 

IF SAVECODE AND INTOG AND NOT DECKTQG THEN FLAGC57); 
IF LESTER OR SEGSTQG THEN 
BEGIN 

pblnt<savefcode#if savecude then coradr else d1ska0r* li nc * j ); 
if noheading then datlme; writellne; 

end; 
end segmentstart; 



13651000 


T 


0014 


13651100 


T 


0019 


13652000 
13652500 
13653000 


T 
T 

T 


0022 
0024 
0024 


13653500 


T 


0027 


13654000 
13655000 


T 

T 


0039 
0039 



91 IS 40 LONGt NEXT SEG 



proceoure segmentcsize'FR); value size*fr; integer sue*fr; 

BEGIN 

STREAM PROCEDURE PRINT(SIZE#Fi£l); VALUE SUE; 



PRK666) * PRINT 



START 



BEGIN 

di»*fiel; osi*8 lit" "; 

siibfiel; dsmi4 wos; 

DII»0I-16; 0S»*6 lit"$ue» "i 

sil»loc sue; dst»4 dec' dsi*6 lit" words" 

end print; 



13657000 

13660000 

13661000 

OF SEGMENT 


T 0544 
T 0544 
T 0544 

********** 


13663000 
13665000 
13667000 
13666000 
13670000 
13673000 


T 
T 
T 
T 

T 
T 


0000 
0000 
0001 
0002 
0003 
0004 



92 



PRTC667) ■ OOIT 



STREAM PROCEDURE DOITCC*A»I»S»F»H)J VALUE C>A#F#w; 

BEGIN LOCAL N; 

DIl»S; DSI»8 LIT" "I SII«S; DS|»9 wds; 

DH»oi-e; sii*lqc w; ds*"4 occ; 

sii»i; sii«si*io;oii*loc n; dii»di*7; dsi*chr; 



13673100 T 0005 

13673150 T 0005 

13673200 T 0005 

13673250 T 0007 

13673300 T 0007 



on»s; sn*ioc f; sinsur; os«*chr; sm»loc c; 

DSl»3 DEC; DS1*4 DEC;SI»*i; SIl «SI + 1 UDSUN CHR; 

end doit; 



13673350 T 0009 
13673400 T 0U10 
13673450 T 0011 



IF LISTER OR SEGSTQG THEN 
BEGIN 

print(sue*linc*j); 
if noheaoing then qatlme; writeline; 
end; 
if stufftog then if fr>0 th£n if level>1 then 

BEGIN 

KLASSF»»TAKE£PROINFO).CtASS; 
IF FR > 1024 THEN FR*FR-1Q24; 
00lT(KUASSF#FR#INF0CPR0INF0,tINKR,PR0lNFO.lINKC3» 
TWXAt03#SAF*SUE); 

wrjte<stuff#10#twxa[*3); 

end; 
if size>segsizemax th£n segs i2emax j*size; 
end segment; 



92 IS 



13674000 T 
13674500 T 
13675000 T 
13676000 T 
13677000 T 
13677100 T 
13677150 T 
13677200 T 
13677250 T 
13677300 T 
13677400 T 
13677500 T 
13677600 T 
13678000 T 
13681000 T 
47 LUNG* 



0012 

0013 
0013 
0015 
0026 
0026 
0029 
0030 
0032 
0034 
0037 
0039 
0043 
0043 
0045 
NEXT SEG 



stream procedure muvecqdecedqc»tedoc)j 
prtc67q) * movecode 

begin local t1*t2,t3; 
si*eoqc;u*sj; 
si*tedqc;T2*si; 
si*loc edoc; 
si*si*3; 

DI*LOC T3; 

di*oi*s; 
skip 3 db; 
15cif sb then ds* i set else 0**1 res£t;skip 1 sb)/ 
si* loc edoc; 

01* LOC T2; 

os* 5 chr; 

3cif sb then ds*1 set else ds*l reset;skip 1 sb); 

di*t3; 

si*loc T2; 

ds*wds; 

oi*loc T3; 

DI*Dl+5; 

skip 3 db; 

si*loc tedoc; 

Si*si+3; 

15CIF SB THEN D$*i SET ELSE OS* I RESET;SKIP 1 SB)/ 
LOC TEDOC; 
LOC Ti; 

5 chr; 

SB THEN DS*1 SET ELSE DS*1 RESET;SKIP 1 SB); 



13683000 T 0544 



Si* 
01* 
OS* 
3CIF 
DI*T3; 
SI*l0C 



ti; 



13684000 
13685000 
11686000 
13687000 
13688000 
13689000 
13690000 
13691000 
13*92000 
13693000 
13694000 
13695000 
13696000 
13697000 
13698000 
19699000 
13700000 
13701000 
13702000 
13703000 

13704000 
13705000 
13706000 
13707000 

13708000 
13709000 

13710000 
13711000 



0544 
0544 
0544 
0545 
0545 
0545 
0543 
0546 
0546 
0548 
0548 
0548 
0549 
0551 
0551 
0551 
055J 
0552 
0552 
0552 

0552 
0553 

0555 
0555 

0555 

0555 

0557 
0558 



DS*wDS 

end; 



13712000 T 0558 
13713000 T 0558 



procedure enterctype)! 

value type; 
real type; 



BEGIN 



end; 



G«-GTA1CJ*J-UI 
IF NOT SPECTOG 
THEN 
BEGIN 

IF NOT P2 

THEN IF P2«-CG*QWNV) 

THEN G*6TAUJ*J-U; 
IF NOT P3 

THEN IF P3*CG*SAVEV> 

then g«-gta1cj*j-13 
end; 
if g*0 then flagc25) else entry(type) 



13M4Q0Q 

13715000 
13*16000 

13717000 
13718000 

13719000 
13720000 
13721000 
13722000 
13723000 
13724000 
13725000 
13726000 
13727000 
13728000 
13729000 
13730000 



T 

T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0558 

0558 
0558 

0558 
0558 
0561 
0561 
0561 
0562 
0562 
0563 
0566 
0566 
0568 
0570 
057i 
0574 



procedure htteqapcgutstor age, relad# stopper, prt ad); 
prtc671) • htteqap 

value gotst0rag£,relau# stopper* prtad; 
boolean gotstorage; 
real relad, stopper, prtad; 

BEGIN 

IF FUNCTOG 
THEN 

BEGIN 

EMITV(513J; 
EMITOCRTN) 
END 
ELSE 

EMITQCXIT); 

cqnstantclean; 

purge(stopper); 
mqveu,cqdeco),z); progdescbtdrcprtad,bquleanc z) » c l + 3 )di v 4,pdes); 
end htteoap; 



13731000 T 0575 



13732000 
13733000 
13734000 
13735000 
13736000 
13737000 
13738000 
13739000 
18740000 
11741000 
11742000 
13743000 
13744000 
13745000 
13746000 
13747000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0575 
0575 
0575 
0575 
0575 
0575 
0575 
0575 
0576 
0576 
0577 
0577 
0578 
0579 
0579 
0586 



PROCEDURE INLINE; 
BEGIN 
INTEGER SN>LN#P,LS#j; BOOLEAN MKSTJ 



STACK(F+2) m SN 

STACKCF+3) * LN 

STACKCF+4) 9 P 

STACKCF+5) ■ LS 



13748000 T 0586 

13749000 T 0586 

13750000 T 0586 

START OF SEGMENT ********** 



93 



STACKCF+6) a J 
STACKCF+7) a MKST 

boolean fljpfl 
stack(f+10) * flipflop 

integer pn; 
stackcf+11) ■ pn 

LABEL L1#L2*L3; 
PN*1 i 

flipflop*inlin 
if stepi^leftparen t 

IF TABL£ClM)*CQLON 
111 IF STEPl>IOMAX THEN 

ACCUMC03*0*PC16I3 
EHF FLIPFLOP 
IF STEPUCOMMA 

THEN BEGIN 1*1-21 

ELSE IF ELCLAS5*A 

AEXPJ 

l2i if elclass»colon 
begin if mkst the 
if tableci* 
;pn*2; 
eno else p*p*u 
if elclass»comma 
if elclass^rthare 
if not mkst then 
begin j*ljl*ls 
if stepi * semicolo 

EMITQ<584 



op; 



ETQG«-TRUE/P*Q/MKST«-FALbEJLS«-LJEMJTQ(NQP)J 
HEN FLAGC59); 

THEN BEGIN STEPIt;GQ TO L2 ENO i 

BEGIN FLAGC465); GO TO L2 END i 

7»nnL0CLI0C2l4l«7nSCRAMC35l3bll3]i 0.^^ 

then begin fupflop^false; ln*sn*lastinfo end; 

OR ELCLA5Sac0L0N OR ELCLASSsRTPAREN 
STEPIT ENO 
SSIGNOP THEN FLAGC60) ELSE STEPITi 



THEN 

n flag(99j; mk$t*true; emitocmksj; 
ijxrtparen then go to li; stepit 

THEN GO TU LU 
N THEN FLAG(61)i 

JEMlTO<MKS);t*j END; 
N THEN FLAGC62); 

j; 



p*p+z; 



L3«elbatci3*take(sn);scatterelbat;addrsf«.p-addrsf; 

PUT(ELBATtU&ADDR5Ftl6»37lll3*STACKHEADtLINKFH33;331l53,SN); 

stackheadclinkf3*sn; sn*sn*incrf; 

if addrsf*pn then go TO L3 ; 

inlinetog* false; 

pn*nextinfu; 

streamtog*true;streamwohds;lf stepixbeginv then streamstmt 

else begin stepitkompqundtail end; 

streamtog*false; purge cpn);streamwordb; purge (lnj; emi tl( 16); 

end inline; 





13F50500 


T 0000 




13750600 


T OOOO 




13F510G0 


T 0000 




13751100 


T 0000 




13752000 


T 0000 




13753000 


r 0005 




13753100 


T 0007 


. fot#* L 0Xo 


13754000 


r ooio 


<**-<&• 


13755000 


T 0013 


13F55500 


T 0018 




13756000 


r 0021 




13757000 ' 


r 0023 




13758000 ' 


r 0026 




18759000 ' 


r 0030 




13760000 ' 


r 0030 




13761000 < 


r oo3i 




13761100 1 


r 0036 




13F61110 1 


r 0038 




13F612QQ 1 


r oo4o 




13762000 1 


r oo4i 




13763000 1 


r 0043 




13764000 1 


r 0045 




13F65Q0Q 1 


r 0045 




13*66000 1 


r 0049 




13766100 1 


• 0051 




13766200 1 


r 0052 




13*66300 1 


' 0052 




13F66400 1 


r 0052 




13766500 ' 


r 0052 




13767000 T 


0052 




13f68000 1 


0055 




13769000 1 


0058 




13770000 T 


0061 




13770500 7 


0062 




13770600 T 


0063 




13771000 T 


0063 




13772000 T 


0066 




13773000 T 


0068 




13773500 T 


0072 




13774000 T 


0072 


93 IS 


76 LONG* 


NEXT S 



comment this section contains the block routine ; 
procedure block(sop)! 

value sop; 

boolean sop; 

comment sop is true if the block was called by itself 

procedure declaration-otherwise it was called 

the block routine is responsible for handling 

structure of an algol program-segmenting each 



THROUGH THE 
BY STATEMENT. 
THE BLOCK 
BLOCK#HANDLING 



14000000 


T 


0586 


14001000 


T 


0586 


14002000 


T 


0586 


14003000 


T 


0586 


14004000 


T 


0586 


14005000 


T 


0586 


14006000 


T 


0566 


14007000 


T 


0586 



BEGIN 

LABEL 



ALU DECLARATIONS^DQING NECESSARY BOOKKEEPING REGARDING EACH 

BLOCK* AND SUPPLYING THE SCANNER WITH ALL NECESSARY INFORMATION 
ABOUT DECLARED IDENTIFIERS. 

IT ALSO WRITES EACH SEGMENT ONTO THE PCTJ 

QWNERR#$AVERR#BQQLEANDEC,HEAlOEC,ALPHADEC»INTE6ERDEC, 



LABELDEC»OUMPDEC#SUBDEC#QUTDEC#INDEC#MQNlTQRDEC# 

SWlTCHDEC>PRQCEOUREDEC#ARRAYDEC»NAMEDEC*FlLEDEC# 
GOTSCHK* 

streaberr*definedec#callstatement#hf# start; 
switch oeclSw ♦ ownerr#saverr#bqoleandec#reaidec,integerde:c#alphadec, 

la8£ldec*0ump0ec#subdec'0utdec*lndec*monltor0ec# 
switchdec»prqceouredec,arraydec#namedec#filedec# 

STREAMERR*DEFlNEDECi 
DEFINE NLOCS«10#»LQCBEGIN*PRTI#, 
tBP*C36«l2]## 
SPACEITDQWN * BEGIN WRITE(LlNE EDBLJ )> WRITEUINE C DBL] ) ENQiJ 

BOOLEAN GOTSTORAGEi 
STACKCF+2) » GOTSTORAGE 

INTEGER PlNFOO#BLKAD; 
STACK(F+3) 9 PINFOO 
STACKCF+4) * BLKAD 

COMMENT LOCAL TO BLOCK TO SAVE WHERE A PROCEDURE IS EMTERED 
IN INFO* 

real maxstacko»lastinfot»relad#lo#tsublevel#stackctro; 
stackcf+5) » maxstacko 
stackcf+6) * lastinfot 
stackcf+7) * relad 

STACKCF+iO) m LO 
STACKCF + U) ■ TSUBLEVEL 
STACKCF+12) * STACKCTRO 

INTEGER SGNQQ#LQLO#SAVELO>PRTIO#NlNFQO; 
STACK(F+13) • SGNOO 
STACKCF+14) • LOLD 
STACK(F*1S) • SAVELO 
STACKCF + U) * PRTIO 
STACK(F*17) 9 NINFOO 

INTEGER NCI 101 
5TACKCF+2Q) » NCIIO 

INTEGER PROAD ) 
STACK<F*2l) « PROAD 

INTEGER FIRSTXUJ 
STACKCF+22) * FlRSTXO 

BOOLEAN FUNCTOGO»AJUMPOi 
STACKCF+23) » FUNCTOGO 
STACK(F+2*) • AJUMPO 

BEGINCTR*BEGINCTR*U 
IF SOP 

then begin 6lkad*prqad0; 
if lastentry * 

then begin gtl*bumpl; 

constantclean; 
emitbcbfw,gt1*l) 

END 
END 



14008000 T Qb86 

14009000 T 0586 

14010000 T 0586 

14011000 T 0586 

14012000 T 0586 

14013000 T 0586 

START OF SEGMENT *******' 

14014000 T 0000 

14015000 T 0000 

14016000 T 0000 

14017000 T 0000 

14018000 T 0000 

14019000 T 0002 

14020000 T 0002 

14021000 T 0002 

14022000 T 0012 

14023000 T 0012 

14023100 T 0012 

14024000 T 0012 

14025000 T 0012 

14026000 T 0012 



14027000 T 0012 

14028000 T 0012 
14029000 T 0012 



94 



14030000 T 0012 



14031000 T 

14032000 T 

14033000 T 

14034000 T 



14035000 
14036000 
14037000 
14038000 
14039000 
14040000 
14041000 
14042000 
14043000 



0012 
0012 
0012 
0012 



0012 
0014 
0014 
0015 
0016 
0018 
0019 

0020 
0020 



ELSE BEGIN BIKAD t*GETSPACE( TRUE>"6 ) J X SEG, DE5CR, 



end; 



firstxcufih3txj 
firstx*o; 

LEVEL*LEVEL*i; 

L0UD*tUUNcT0G0»FUNCT0G;AJUMP0»AJUMPlPRTlO*PRTUSGNOO*SGN0i 

savelo*savel;ajump*false; l*o;ninfoo*nextinfo; 

NClIOfrNCIH 

ncii*o; 
stackctrq«-stackctr; 



ELBATEl3,CLASS*SEMlCOLON; 
STARTl IF TABLEUHSEMICQLON 

THEN 

BEGIN 

FUAG<0)J 

end; 
gtauo3*j*o; 
if spectog 

THEN 
BEGIN 

IF BUP*PJ 
THEN 
BEGIN 



PRT<672) « *SEGMENT DESCRIPTOR* 



BEGIN LABEL GETLP; 



IF STREAMTQG THEN F*0 ELSE 
F*FZERO; 
BUP^LASTINFQ* 
OQ 
BEGIN 
IF NOT STREAMTQG THEN 
BUP*LASTINF0; 
GETLPI G*TAKECBUP>; 

IF K*G»AODRESS*PJ 
THEN 
BEGIN 
IF BljP * BUPI'BUP* TAKE(BUP ♦ DtPURPT THEN 

GO TO GETLP 
END; 

typev*g. class; 

G f ADDRESS*F*-F + U 

putcg#bup); GiINCR*GTi; 
put(g#mark*pj? 
;bup+bup*takecbup*ij»purpt 

END 

until pj*pj-1»0 

end; 

PRTC673) » *SEGMENT DESCRIPTOR* 



START 



14044000 

14043000 

14046000 

14047000 

14048000 

14049000 

14050000 

14051000 

H052000 

14053000 

14054000 

14055000 

14056000 

14057000 

14056000 

14059000 

1*061000 

14062000 

14063000 

14064000 

14065000 

14066000 

14067000 

14066000 

14069000 

14070000 

14071000 

14072000 

14073000 

14074000 

14075000 

14076000 

OF SEGMENT 
14077000 
14078000 
14079000 
14080000 
14061000 
14082000 
14083000 
14084000 
14085000 
14066000 
14087000 
14088000 
14089000 
14090000 
14091000 

14115000 
14116000 
14117000 
14118000 
14H9000 
14120000 
14121000 



0020 

0022 

0022 

0022 

0022 

0022 

0022 

0022 

0023 

0024 

0025 

0029 

0032 

0033 

0033 

0034 

0034 

0034 

0037 

0037 

0038 

0038 

0039 

0039 

0040 

0042 

0042 

0042 

0043 
0043 
0044 
0044 

********* 

oooo 

0001 
0002 
0003 
0004 
0004 
0004 
0005 
0007 
0008 
0009 
0009 
0012 
0012 
0013 

0014 
0017 
0020 
0020 
0023 
0024 
0025 
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TO 



SPECTOG*FALSEl 
HF 



95 IS 



GO 
END 

end; 
stackct * q; 
while stepi*qeciaratqrs 

00 
BEGIN 

STAJ[J*J+l]*fclBATC II. ADDRESS; 

stopdefine«>errortog*true; 

ENOJ 
IF J *0 THEN GO TO C AUSTATEMENT* 
P2*P3*FAU5e; 
GO TO DECLSWCGTAitJJj; 

ownerr«flag(20);j*j+i;go to realoec; 
saverriflag(21)ij*j*i;go to realoec; 
streamerri if elclass m leftparen then 

BEGIN 

I * I - II 

go to callstatement; 
end; 

FIAG(22)J 
J «- J + U 

go to proceouredec; 
rea|.dec»p3*true;entfcr(reali0);g0 to start; 
alphadecjp3«-trueienter(a|„falo);gu to start; 
booleandecip3«.true;entercbooid);gq to start; 

lNTEGERDECtp3*TRUE;ENTERClNTl0);G0 TO START! 
MQNIfOROECUF SPECTOG 

THEN BEGIN COMMENT ERROR 463 MEANS THAT A MONITOR 
DECLARATION APPEARS IN THE SPECIFICATION 
PART OF A PROCEDURE; 
FLAGU63); 

end; 
do until false) 
qumpdecuf spectog 

then begin comment error 464 means a dump declaration 
appears in the specification part of a 
procedure; 

FLAGC464); 

end; 
00 until false; 
arraydect arraei go to start; 

FlLEDECl INDECI OUTOECI 

GOTSCHKiGQTSTORAGE* NOT SPECTOG OR GOTSTORAGE; GO TO START; 

NAMEDECt IF TUGTAUJO-UJ'ARRAYV THEN j*J*ii 

typev«-nameid; 

if ti*gtahj*u'1]»0 then u*j«-1 

ELSE 

<GWNV 



% 6 

% 6 

% 6 

* 6 

X 6 

% 6 

% 6 

% 6 



THEN 



BEGIN 

P2«-TRUE; 



end 

ELSE 



IF SPECTOG THEN 
FLAG(013) 



27 LONG* 
14122000 
14123000 
14124000 
14123000 
14125500 
14126000 
14127000 
14126000 
14129000 
14130000 
14131000 
14132000 
14133000 
14134000 
14135000 
14136000 
14137000 
14137100 
14137200 
14137300 
14137400 
14137500 
14137600 
14137700 
14138000 
14139000 
14140000 
14141000 
14142000 
14143000 
14144000 

14143000 
14146000 

14147000 
14148000 
14149000 
14150000 
14151000 
14152000 
14153000 
14154000 
14155000 
14156000 
14158000 
14160000 
14161000 
14161010 
14161020 
14161030 

itmm 

14161060 
14161070 
14161060 
14161090 
14161100 



NEXT S EG 
0045 
0045 
0046 
0046 
0046 
0047 
0047 

0048 
0048 
0051 
0052 
0053 
0054 
0055 
0058 
0060 
0063 
0064 
0065 
0066 
0067 
0067 
0067 
0069 
0069 
0072 
0074 
0076 
0076 
0078 
0078 
0078 
0078 
00 79 
0079 

0080 
0081 
0081 
0081 
0081 
0082 
0082 
0083 
0085 
0085 
0087 
009J 
0092 
0095 

881? 

0097 
0098 
0099 
0099 
0100 
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TYPEV*NAMEID+T1-REALV; 
ENTER(TYPEV)! GO TO START; 
SUBDECt 

BEGIN REAL TYPEV»Tf 
PRTC674) * *SEGMENT DESCRIPTOR* 

STACK(F+25) * TYPEV 
STACK(F+26) » T 

IF GTAHJ*JMJ = REAIV THEN TY PEV«-REALSUBID ELSE T YPEV*SUBID; 
STOPGSP4-TRUE) 

JUMPCHKNX;ENTRY(TYPEV)MF ELCLASSXSEMICOLON THEN t'LAGC57)J 
ST0PG3P*FALSE; 
ST|PIT; 

t*nextinf0; 
putnbump(l); stmt; emitoclfu); if typev*realsubio thln 

if get(l-2)^533 then flag(58 ); put(take(t hlc24i 36 1 123>t )> 
constantclean; 
end; 

PRTC675) * *SEGmENT DESCRIPTOR* 

go to start; 



14161110 T 0100 

14161120 T 0100 

14162000 T 0102 

14163000 T 0103 

14163500 T 0104 

START OF SEGMENT ********** 96 



96 IS 



LABELDECJIF SPECTOG AND FUNCTOG THEN FLaG(24); 

stqpentry*stopgsp«-true; 
1*1-1; 

DO 

BEGIN 

stqpqs.fine>true; 
stepit; 
entryuabeliqj; 
putnbumpcq) 

END 

until elclassjtcomma; 
stopentry*stopgsp«.false; 
go to start; 
3witchdeci 

BEGIN 

LABEL START; 
PRTC676) * *SEGMENT DESCRIPTOR* 

INTEGER GT1>GT2#GT4#GT5; 



14164000 

14164500 

14165000 

14166 

14160000 

14166500 

14167000 

14168000 

14168500 

14169000 

11 LONG 
14170000 
14171000 
14172000 
14173000 
14174000 
14175000 
14176000 
14177000 
14178000 
14179000 
14180000 
14181000 
14182000 
14183000 
14184000 

14185000 
14186000 
14187000 
14188000 
14189000 
14190000 
14191000 
14192000 
14193000 
14194000 
14195000 
14196000 
14197000 
14198000 
14199000 
14200000 
14101000 
14102000 



0000 
0004 
0005 
0008 
0009 
0009 
0010 
0013 
0019 
0019 

NEXT SEG 
0105 
0105 

0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0108 
0109 

0110 
0111 
out 
0111 

0112 
0113 
0113 
0113 
0115 
0116 
0116 
0117 
0117 
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START OF SEGMENT 
14203000 



********** 
T 0000 
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STACKCF+Z5) * GTl 
STACKCF+26) m GT2 
STACKCF + 27) m GT4 
STACKCF+30) ■ GTS 

BOOLEAN TBi; 
STACKCF+31) * TBi 

STQPENTRY*NQT SPeCTQg; STOPGSP*TRUE; 

scattebelbat; gti«-q; tbi«-false; 

ENTRY(SWlTGHIQ); 
GT2*NExTlNF0i PUTN8UMPC0); 
DO 

fl C" f T (Vf 

IF STEPl*LABELIO OR EL8ATC 13 tLVL'LEVEL THEN FLAG(63); 
PUT*8UMPCELBATCI3);GT1*GT1*1 
END 

COMMENT 

until stepi'CQmma; 

PUTCGTWGT2)' 
STOPENTRY ♦ 5T0PGSP * FAL*E; 

END SwITCHDEC; 

prt(677) s -segment descriptor* 

go to start; 

DEFINEDECI 

8EGIN LABEL START; 
PRT<700) p *SEGmENT DESCRIPTOR* 



97 IS 



I4t0<*000 T OOOO 



1420S000 
14206000 
14207000 
14217000 
14216000 
14219000 
14220000 
14221000 
14222000 
14222500 
14223000 
14223500 
14224000 
14251000 
14252000 



17 LONG* 
14253000 T 
14854000 T 
1425«05Q T 



0000 
0001 
0003 
0004 
0006 
0006 
0006 
0010 

oon 

0012 

0012 
0013 
0013 
0014 
0016 

NEXT SEG 
0U8 
0118 
0119 
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STACKCF+25) * J 
STACKCF+26) ■ K 

PRH701) * PARM 



REAL J#K; 



boolean stream procedure parm ( s#d,k# j); value k#j; 

begin sus;5usi + 2; di «-0; di *0j>2j 

if k 5c*dc then tally*!; 

di«-loc j;di*oi*7; 

if sc*dc then tallow 

parm*tally; 
end; 



START OF SEGMENT ********** 
14254100 T 0000 



14254200 T 0000 
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14Z54300 
14154400 
14254500 
14254600 
14254700 
14154800 



0000 
0001 
0002 
0002 
0003 
0003 



stopentry*stqpgsp*true;i*i-i; 

DO 
BEGIN 

stopdlfine*true; 
stepit; mqve(9,accumc13»gta1)j 
K*cOUNT*U J*GTA1C03; entry(oefineoid); 
gtauo3*j* m iooooo w ; j*o; 
if elclasspleftparen or elclass*lftbrket THEN 

BEGIN 

DO BEGIN STQPDEFINE*TRUE; 

stepit; 

IF U«-J*l>>9 OR PARM(ACCUMC13»GTAl#K#J) OR 

k>62 then begin errc141); go to start end; 
stopdefine*true; 



14255000 


T 


0004 


14256000 


T 


0007 


14257000 


T 


0008 


14858000 


T 


0008 


14259000 


T 


0006 


14259010 


T 


0011 


14259015 


T 


0014 


14259020 


T 


0016 


14259030 


T 


0018 


14159060 


T 


0018 


14259070 


T 


0019 


14259080 


T 


0020 


14259090 


T 


0024 


14259100 


T 


0029 



end until stepi/comma; 

if elclassxrtparen and elclass/rtbrket then erru41); 

stopdefine*truej 

STEPITJ 

PUT(TAKE(LA5TINF0)&JCl6l37*n]'LASTINF0)^ 
END* 
IF ELCIASS^RELOP 

THEN 

BEGIN 

FIAGUO); 

end; 
macroid*true; 

OEFlNEGEN(FALSE*J)i 

macroid*false; 

END 

until stepi'cqmma; 
starti stqpentry*stopgsp*false; eno; go to start* 
prtc702) * *segment 0escript6r* 

proceduredec* 

BEGIN 

LABEL STARTfSTAHTU 
PRT(703) « *SEGMENT DESCRIPTOR* 

LABEL START2; 
BOOLEAN PWDTOG; COMMENT THIS TOGGLE IS THE FORWARD DEC INDICATOR; 
STACKCF+25) 9 FwDTOG 

IF NOT SPECTOG THEN FUNCTOG*FALSEi 
FWDTOG*FALSE i 

maxstacko* maxstack; 
if g«.gtaicj«-j-ij*streamv 

THEN 

begin streamtug*true; 
if g«-gtauj«-j-u*0 then typev«-strprqc1d 

ELSE 
BEGIN 

if typev*procid ♦g>intstrhrocld or 

typev <boostrprqcld 
then flagc004); 
if not spectog then 
functqg*true; 

CHKS08 

EnO end 

else 
if g«sakev pr g»0 then typev*procld 

ELSE 
IF TYPEV*REALSTRPR0CID*G<800PR0CID OR TYP£V>INTPR0UD 
THEN FLAG(005) 
ELSE BEGIN FUNCTQG*TRUEiG*GTAl t J*U*U* 

end; 
if not streamtqg then segmentstart (g*savev ) i 

SAF * GsSAVEV; 



14239U0 ' 


r 0029 


14259120 ' 


r 0031 


14859130 ' 


r 0034 


14259140 ' 


r 0035 


14259150 * 


r 0035 


14159160 1 


r 0038 


14860000 1 


r 0038 


14261000 1 


r 0038 


14262000 1 


r 0038 


14263000 1 


r 0039 


14264000 1 


r 0040 


14265000 1 


r 0041 


14265900 1 


r oo4i 


14266000 1 


r 0042 


14266100 1 


r 0043 


14267000 1 


0043 


14268000 1 


■ 0043 


14269000 1 


' 0045 


98 IS 48 LONGj 


NEXT SEG 




r oi2o 


14270000 ' 


r 0120 


14271000 1 


r 0121 


14272000 1 


■ 0121 


START OF SEGMENT < 


,********* 


14273000 1 


• 0000 


14274000 1 


' 0000 


14275000 1 


0000 


14276000 1 


0001 


14277000 7 


0002 


14278000 T 


0003 


14279000 T 


0005 


14280000 T 


0005 


14261000 1 


0007 


14282000 1 


0010 


14283000 T 


ooio 


14284000 1 


0011 


14285000 T 


0013 


14286000 T 


0013 


14287000 T 


0015 


14288000 T 


0015 


14289000 T 


0017 


14290000 T 


0017 


14291000 T 


0017 


14292000 T 


0017 


14293000 T 


0020 


14294000 T 


0021 


14295000 T 


0023 


14296000 T 


0025 


14297000 T 


0028 


14298000 T 


0026 


14299000 T 


0031 


14300000 T 


0032 


14301000 T 


0032 


14102000 T 


0032 
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mode*mode*u 
iq«-prqinf0j 
scatterelbat; 
comment check to see if declared forward previously 
if levelf*level 

THEN 
BEGIN 

IF 6*TAKE(LlNKFn)20 

THEN FLAGC006); 
FWDTOG*TRUEi 
PRQAD*ADDRSFj 

PROlNFO«-ELBATCn;MARK*LiNKF + lNCRF;STEPIT 
;PUTCG#LINKF + U^ 
END 
ELSE 

begin stqpentry*thue; p2*true; 
st0pgsp*level>1 and streamtog; 
entryctypev); mark*nextinfq; putnbumpco ); 
stqpgsp^false; 

P80INF0*TAKECLASTINF0)& LASTINF0C35l35ll3 3iPR0AD*ADDKSFi 

p2*st0pentry*false 

end; 

pj*0; lev£l*level + u 
if streamtog then streamwqrds; 
if elclass*semicolon then go to start!* 

IF ELCLASSjTLEFTPAREN THEN FLAGCQ07); 

STATEMENTS FOOL THE 
ENTRIES IN THE ZERO 



* PJ THEN FLAGC48); % WRONG 
WE DON M T WANT TO CLOBBER INFO. 



commentl the following 8 
formal parameter 
rr1*nextinf0; 
lastinf0t*lastinf0; last infq«-nextinfqm / 
putnbump(o); 
ptog»true; i*i+i; 
entry(secret)/ 
if fwdtqg then 

BEGIN 

IF GT1I«TAKE(MARK), [40183 
% NUMBER OF PARAMETERS. 
END 
ELSE 

PUT(Pj#MARK); 

p*pj; 
if elclass*rtpaken 

then flagc008); 
if stepi^semicolon 
then flagc009); 

COMMENT MAiK PARAMETERS VALUE IF THERE IS A VALUE PART* 
IF STEPIbVALUEV 

Then 

BEGIN 
00 

IF STEPI'SECRET 
THEN FLAGCOIO) 
ELSE 

BEGIN 

IF G*ELBATCIJ.ADDRESS*0 OR G>PJ 
THEN 

flagcoio); 



scanner and block, putt ing 
row of info; 



14803000 
14304000 
14305000 
14306000 
14307000 
14308000 
14309000 
14310000 
14111000 
14312000 
14313000 
14314000 
14315000 
14316000 
14317000 
14318000 

14318500 
14319000 
14319500 
14320000 
14321000 
14322000 
14323000 
14324000 
14325000 
14326000 
14327000 
14328000 
14329000 
14930000 
14331000 
14332000 
14333000 
14333100 
14333200 
14333300 
14333400 
14833500 
14333600 
14334000 
14335000 
14336000 
14837000 

14338000 
14339000 
14340000 
14341000 
14342000 
14343000 
14344000 
14945000 
14346000 
14847000 
11348000 
14149000 
14350000 
14351000 



0032 
0033 
0034 
0034 
0034 
0035 
0035 
0036 
0037 
0039 

0040 
0041 

0043 
0045 
0045 
0045 
0047 
0049 
0051 
0052 
0055 
0055 
0056 
0058 
0059 
0061 
0063 
0063 
0063 
0063 

0065 
0066 
0068 
0069 
0069 
0070 
0073 
0073 
0073 
0073 
0075 
0075 
0076 

0077 
0078 
0080 
0080 
0080 
0081 
0061 
0082 
0082 
0083 
0084 
0084 
0087 
0087 



G*TaKECELBATCIJ)J 
PUT<G*lllOUnxi#ELBATCIJ) 

END 
UNTIL 

STEPI^COMMAi 

IF elclass*semiculon 

THEN FUAGCOlt) 
ELSE STEPIT 

ENOU*I-W 
IF STREAMTOG 
THEN 

BEGIN 

bup*pj; spectug«-truejgq to starti 

END 
ELSE 
BEGIN 

SPECTQG*TRUEJ 

BUP*Oi 

IF ELCIASSXDECIARATOR* 

then flag<012) 
end; 
startiptqg«-fai_se;i.a;>tinfo«-lastinfot;nextInfq«-if fwdtqg then rri else 

MARK + PjnJ 
5TART1IPINF00«-NEXTINF0; 
START2J ENOi 
PRT(704) * *SEGMENT DESCRIPTOR* 

IF SPECTOG OR STREAMTOG 
THEN 

GO TO START* 
COMMENT IF SPECTOG IS ON THEN THE BLOCK WILL PROCESS THE SPECIFICATION 
PART SIMILARY TO DECLARATIONS WITH A FEW NECESSARY VARIATIONS; 
HFI 

BEGIN 

label start>stgp; 
prtc705) * *segment descriptor* 

define testlev * level>2 #i 

if streamtog 

then begin 

if testlev then jumpchknx else segmentstarh true)*pj*pj 

ptog^false; 
put(take(git(pr0inf0))&lc28j36u2]#git(pr0infu))i 
if testlev then begin emit0o84); end* 

if stepi»beginv 

THEN 

BEGIN 

WHILE stepi«declarators or elclass»lqcalv 

DO 
BEGIN 

IF ELBATCU.ADDRESSsLABELV 
THEN 

BEGIN 

stqpoefine*stqpgsp«-stupentry«.true> 

DO BEGIN STQPDEFINE*TRUE*STEPIT;ENTRY<STLABID)/PUTN6UMP(0) end until 

elclassxcomma;stopgsp«-stopentry«-false 

ENO 
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START 



14352000 
14353000 
14354000 
14355000 
14356000 
14857000 
14358000 
14359000 
14360000 
14361000 
14362000 
14363000 
14364000 
14965000 
14366000 
14367000 
14168000 
14369000 
14370000 
14371000 
14372000 
14373000 
14874000 
14375000 
14376000 

113 LONG 
14177000 
14378000 
14379000 
1*380000 
14381000 
14382000 
14383000 
14384000 



QF SEGMENT 
14384100 
14365000 
14B86000 
14387000 
14388000 
14388100 
14189000 
14393000 
14894000 
14395000 
14396000 
14397000 
14898000 
14399000 
14400000 
14401000 
14402000 
14403000 
14404000 
14405000 



0069 
0090 

0092 
0092 
0092 
0094 
0094 
0095 

0096 
0098 
0098 
0098 
0099 
0101 
0101 
0101 
0101 
0102 
0103 
0103 
0104 
0105 
0109 
0110 
0111 

NEXT SEG 
0122 
0122 
0122 
0123 
0123 
0123 
0124 
0124 

********* 
0000 

oooo 
oooo 

0000 
0004 
0005 
0008 
0010 

ooii 
ooit 

0012 
0014 
0015 
0015 
0016 
0017 
0017 
0019 
0022 
0024 
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100 



ELSE 
BEGIN 

I*I*U 
ENTRYCLOCLID) 
END 

end; 
if functog then 

PUTCU«-TAKE(PR0INFU})&LQCLlDC2>4ll7j & 

<PJ*8*REALCT£STlEV))Cl6i37inJ'PR0lNF0); 

COMPOUNOTAIL 
END 
ELSE 
BEGIN 

if functog then 

putcc z*.takecprqinfq)h locli0c2 1 41 » 7 j & 

cpj + 2*reauctestl£v))c 16137 i lu'pro info); 
streamstmt; 

ENOJ 
COMMENT THE FOLLOWING BLOCK CONSTITUTES THE STREAM PROCEDURE PURGE; 
BEGIN 

REAL NLOC#NLAB; 
PRTC706) » *SEGMENT DESCRIPTOR* 



14406000 
14407000 
14406000 
14409000 
14410000 
14411000 
14411100 
14411200 
14411300 
14412000 
14413000 
14414000 
14415000 
14415100 
14415200 
14415300 
14415400 
14415500 
14416000 
14417000 
14416000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 

T 



0025 
0025 
0025 
0027 
0027 
0027 
0028 
0028 
0031 
0034 
0034 
0035 
0035 
0035 
0035 
0038 
0041 
0042 
0042 
0042 
0042 



STACKCF+25) * NLOC 
STACK(F*26) * NLAB 



START OF SEGMENT ********** lOi 



DEFINE SE$«IB*»SED«6*»THM»5«J 
DEFINE LQC*[36J12J#»LASTGT*C24J12J#; 

j* lastinfq; 

NLQC«-NLAB*Oi 
00 

BEGIN 

IF(GTl«-TAKE(J))tCLASS«LUCLIO THEN 
BEGIN 

IF B0QLEANCGT1»F0RMAL) THEN 
BEGIN 
IF GTKO THEN 

PUT(TAKECGT2*MARK+P-GTl,ADDRESS+l)&FILElDC2»4lin 
#GT2); 

END 
ELSE NLOC*NLQC+i; 
END 
ELSE 

BEGIN 

IF GT1,ADDRESS*0 THEN NLAB+NLAB+1J 

IFCGT3*TAKE(GITCJ))).LASTGT#0 AND GT3.L0C «0 THEN 

BEGIN 

MQVE<9,INF0C0>JJ>ACCUMCQJ); 

Q*ACCUMCl3i 

FLAG(267)| 

ERRORTQG«-TRUE# 

end; 
end; 

G*(GT2*TAKE(J + n)«PURPT; 

IF GT1.C2I83 * STLABIQ*2+1 THEN 

STACKHEADC(0&GT2£12U2I36])M0D 125 3*TAKEC J) .LINK; 
END UNTIL J*J«G$i; 



14419000 
14420000 
14421000 
14422000 
14423000 
14424000 
14425000 
14426000 
14427000 
14426000 
14429000 

14430000 
14431000 
14432000 
14433000 
14434000 
14435000 
14436000 
14437000 
14438000 
14439000 
14440000 
14441000 
14442000 

14443000 
14444000 
14445000 
14446000 
14447000 
14446000 
14449000 
14450000 



0000 
0000 
0000 
0000 
0002 
0002 
0002 
0004 
0004 
0005 
0006 
0006 
0011 

0012 
0012 

0014 
0014 
0014 
0014 
0017 
0021 
0022 
0024 
0025 
0026 
0027 
0027 
0027 

0030 
0032 

0036 

0038 



IF TESTUfcV THEN BEGIN EMITc(i»Oj; EMITQCBFH) END 
ELSE EMlTCO); 
PUT(TAKECMARK)iNL0Ctll*2l6]4Ltl6l36ll2 3&P[40l40t8],MAHK); 
IF FUNCTOG THEN 

PUTCZ* PROINFO); 
STREAMWQROS; 
STREAMTOG*FALSE/ 
IF NOT TESTIEV THEN BEGIN PHQGQESCBIDR cPR0A0»TR0E# (L+3)0I V 4, CHAR); 

SEGMENT C(L+3)D IV 4# PKOI NFO. ADDRESS ) ; 

rightcd; l*o; 

END; 
IF LISTER AND FURMATOG THEN SPaCEITDOWN; 

end; 

PRT(707) p *SEGMENT DESCRIPTOR* 

LASTINFO*LASTINFOT>NEXTINFO*MARK+P*1I 
END 
ELSE 

BEGIN 
IF STEPI*FORWARDV 
THEN 
BEGIN 

PUTC-TAKE(G*PROINFO,LlNK+i)#G)i 

PURGECPINFOO); 
STEPIT 

END 
ELSE 
BEGIN 
PROADQ»PRQADJ 

TSUBLEVEL*SUBLEVEL;SUBtEVEL*LEVEL ;STaCKCTRO*STaCKCTR; 
if modem then fr$tlevel*-level; STACKCTR*513+REALCFUNCTQG ) ; 
IF ELCLASS * BEGINV THEN 
BEGIN 

CALLlNFO*CCALLX*CALLX + U*U 
NESTCTR4-STACKCTR; 

BLOCK(TRUE) 
i PURGECPINFOO); 
IF NESTOG THEN 
BEGIN GTl*TAKE(PROlNFO). ADDRESS; 

NESTPRTCGTn*0&PROINF0C35l35ll3]4CALLINFQ[22135ll3j; 
CALL tCALLINFO-l]*(TAKEC GIT (PRO INFO ))+NeSTCTR*5H)«1 
CALLXC22»35»13J; 

end; 
l*o; 
go to stop end; 

BEGIN 



101 IS 



FLAG<052>; 



stmt; 



RELAQ«-L ; 

htteoap(false#relad#pinfoo#proad); 
eno; 



STOPl 

sublevel*tsublevel; 
stackctr*stackctro; 

if lister and formatog 
end; 
end; 



then spaceITDQwn; 



14451000 
14451100 
14451200 
14452000 
14457000 
14060000 
14461000 
14461100 
10461200 
14461300 
14461400 
14461500 
14462000 

69 LONG 
14463000 
14464000 
14465000 
14466000 
U467000 
14468000 
14469000 
14470000 
14471000 
14472000 
14473000 
14474000 
U475000 
14476000 
14477000 

14478000 
14479000 
14481000 
14481100 
14481200 
14482000 
14483000 
14483100 
14483200 
14483300 
14483400 
14483500 
14463600 

14483700 
14464000 
14485000 
14486000 
14487000 
14488000 
14489000 

14490000 
14491000 
14492000 
14493000 
14493500 
14494000 
14495000 



0038 
0041 

0043 
0047 
0047 
0049 
0049 
0050 
0054 
0056 
0058 
0058 
0068 

NEXT 5EG 
0043 
0045 
0045 
0045 
0046 
0046 
0047 
0047 
0050 
0051 
0051 
0052 

0052 
0052 
0053 

0055 
0058 
0059 

0060 
0062 
0063 
0063 

0064 
0064 
0067 
0070 
0076 
0077 
0077 
0078 
0079 
0079 
0079 
0080 
0081 

0082 
0082 
0063 
0083 
0084 
0094 
0094 



100 



proinfo*lo; 

if jumpctr*level 

THEN 

JUMPCTH*LEVEL-i; 
LEVEL*LEVEL"i; 
MODE*MODt*H 

MAX5TACK*MAXSTACK0' 

startiend; 
prt(710) * *segment descriptor* 



GO TO start; 

cailstatementi fouled «• l; 

jumpchkxmf sop then begin **stackctr-513;hhile z*z-uq 

do emitlcoj end* 
if spectog then begin 

flag(12);g0 to hf 

END* 
BEGINCTR * BEGINCTR-li 
IF ERRORTOG 

THEN COMPOUNOTAIL. 
ELSE 
BEGIN 

stmt; 

if elclass*tableum)*declaratqrs 

THEN 
BEGIN 

ELBATCIJ.CLASS*SEMJCQLQNJ 
BEGINCTR*8EGINCTR*W 
GO TO START 
END 
ELSE 

compqundtail 
eno; 
functog*functogo; 
if sop then htteoap(false*firstx#ninfoo*blkad) 

else begin if nestqg then sortnestj purget ninfoo ); end* 

SEGMENTC(L+3)DJV 4»proado); 
IF LEVEL>1 THEN RIGHT(L); 
IF LEVEL ♦ LEVEL-1 * THEN CONSTANTCLEAN/ 

AJUMP*AJ(JMPQ? 

FlRSTX*FIRSTXO; 
SAVEL*SAVELO; 
STACKCTR*STACKCTRQi 



end block; 



100 IS 



94 IS 



14496000 T 


0094 


1449/000 T 


0095 


14498000 T 


0095 


14499000 T 


0095 


14500000 T 


0097 


14501000 T 


0098 


1*302000 T 


0100 


14503000 T 


0100 


102 LONG* 


NEXT SEG 


14504000 T 


0125 


14905000 T 


0125 


14506000 T 


0126 


14506500 T 


0131 


l4?0/000 T 


0133 


14508000 T 


0134 


14509000 T 


0135 


14510000 T 


0135 


14111000 T 


0136 


14512000 T 


0136 


14913000 T 


0137 


14914000 T 


0138 


14515000 T 


0138 


14516000 T 


0139 


14517000 T 


0140 


14918000 T 


0141 


14919000 T 


0141 


14520000 T 


0144 


14521000 T 


0145 


14522000 T 


0146 


14523000 T 


0146 


14524000 T 


0146 


14525000 T 


0146 


14599000 T 


0147 


14600000 T 


0147 


14601000 T 


0149 


14602000 T 


0152 


14603000 T 


0154 


14604000 T 


0156 


14605000 T 


0159 


14606000 T 


0159 


14607000 T 


0160 


14608000 T 


0160 


14609000 T 


0160 


14610000 T 


0161 


14611000 T 


0162 


14612000 T 


0162 


14613000 T 


0162 


170 LONG* 


NEXT SEG 



94 



COMMENT THIS SECTION CONTAINS THE VARIABLE ROUTINE AND ITS SIDEKICKS; 



15000000 T 0586 

15001000 T 0586 

15002000 T 0586 

15003000 T 0586 



COMMENT THE FOLLOWING BLOCK HANDLES THE FOLLOWING CASES 
OF SIMPLE VARIABLES! 



1* V * EXP 

2. V * EXP 

3. V.CSIL3 * 

4. V, CSIL3 * 

5. V.C5IL3 

6. V 

CODE EMITED FOR 



EXP 

EXP 



THE 



It VN*EXPfM*»XCH# 

2. £XP'M*,VL'*, 

3. VN#QUP»CQC#EXP»T#M*,XCH,«-. 

4. W»EXP#T'M*'VL'*, 

5. *ERGL'VV'T . 

6. VV , 

WHERE VN * DESC V 
EXP* ARITH 
M* 



'WHERE V IS FORMAL-CALL 8Y NAME, 

#ALL V EXCEPT FORMAL-NAME, 

'WHERE V IS FORMAL'CALL BY NAME, 

'ALL V EXCEPT FORMAL-NAME, 

'ALL V, 

'ALL V. 

ABOVE CASES IS AS FQLLQWSI 



. OR BOOLEAN EXPRESSIUN'AS REQUIRED, 
CALL ON MONITOR ROUTINE'IF REQUlREOt 
LITC V 
QPOC V 

STORE INSTRUCTIONCISD'ISN'SND OR STD). 
BIT TRANSFER CQDECD IA'D JB' TRB ) , 
* LITC 
DUP'COC'XCH m THE INSTRUCTIONS DUP'COC'AND XCH, 



VL 
W 

♦ 

T a 

zerol 



* 

9 



15004000 


T 0586 


15005000 


T 0586 


IS006000 


T 0586 


1500/000 


T 0586 


15008000 


T 0586 


15009000 


T 0586 


15912000 


T 0586 


19913000 


7 0586 


15014000 


r 0586 


15015000 


7 0586 


11016000 


r 0586 


15017000 • 


r 0586 


19016000 


7 0586 


15019000 


r 0586 


19020000 ' 


r 0566 


15021000 


r 0566 


15022000 ' 


r 0586 


15023000 ' 


r 0586 


15024000 ' 


r 0586 


15025000 ' 


r 0586 


19026000 ■ 


r 0586 


15027000 ' 


r 0586 


15026000 " 


r 0586 


15029000 * 


r 0586 


15030000 ' 


r 0586 


15031000 1 


r 0586 


15032000 1 


r 0586 


15033000 1 


r 0586 


15034000 1 


r 0586 


15039000 1 


r 0586 


15036000 1 


r 0586 


19037000 1 


r 0566 


15038000 1 


• 0566 


15039000 1 


r 0586 


15040000 1 


• 0586 


15041000 1 


0586 


15042000 1 


• 0586 


15043000 1 


0586 


15044000 1 


0586 


15045000 1 


0586 


15046000 1 


0586 


15047000 7 


0586 


15048000 1 


0586 


15049000 7 


0586 


15050000 7 


0986 


15051000 7 


0586 


15Q52000 T 


0586 


15053000 7 


0586 


15054000 7 


0566 


15055000 7 


0586 


15056000 7 


0586 


15057000 7 


0586 


15058000 7 


0586 


15Q59000 T 


0586 


15060000 T 


0586 


15061000 T 


0586 


15062000 T 


0586 



OF COURSE* EXP WILL CAUSE RECURSION* IN GENERAL*AND TMuS 
THE PARAMETER PI AND THE LOCALS CAN NOT Bfc HANDLED IN A 
GLOBAL FASHION, 

THE PARAMETER Pi IS USED TO TELL THE VARIABLE HOUTINE 
WHO CALLED IT. SOME OF THE CODE GENERATION AND SOME 
SYNTAX CHECKS DEPEND UPON A PARTICULAR VALUE OF Pi , 

* 
PROCEDURE VARIABLECPI); INTEGER Pi; 
BEGIN 
REAL TALL* COMMENT ElBAT WORD FOR VARIABLE* 



STACKCF+2) s TALL 

STACK(F*3) s Tl 

STACK(F+«) = T2 

STACKCF+5) = J 

STACK(F*6) = SPCLMON 



START OF 



Tl * COMMENT 1ST INTEGER OF PARTIAL WORD SYNTAX* 

T2 * COMMENT 2ND INTEGER OF PARTIAL WORD SYNTAX; 

J * COMMENT SUBSCRIPT COUNTER ; 

LABEL EXIT*L1*LAST'N£XT*,MZZ*ITUP*LASS; 
DEFINL FQRMALNAME*19I2J«»2#* LONGID»NAMEID# ; 
BOOLEAN SPCLMON; 



TALL*ELBATCI] J 

IF ELCLASS $ INTPROCID THEN 
BEGIN 

IF TALL, LINK *PRQ INFO ,L INK THEN 

BEGIN ERRC2U); 60 TO EXIT END; 
COMMENT 211 VARI ABLE*FUNCT I ON IDENTIFIER USED OUTSIDE OF ITS SCOPE*; 
TALL*TALL &CELCL ASS+4 )C2I 41 1 7 ] & 5l3[ 16 I 37 I 1 U ; 

END 
ELSE CHECKERCTALLH 
IF TALL. CLASS $ INTID TH£N 
BEGIN 

IF 5TEPI* ASSIGNOR THEN 
BEGIN STACKCT «■ U 
Ll» IF TALL.FORMALNAME THEN 

BEGIN 

EMITNCTALL. ADDRESS); 

IF TIXO THEN BEGIN EMlTO(OUP J ;EMITU( COC ) ENO* 
END 

else if tixo then emltv ( tall, address ) 
; stackct * real(tixo); 5tepit; 
aexp; 

EMITDC48-T2 *Ti ,T2); 

STACKCT *• Oi 

GT1 «■ IF TALL. CLASS *INTID THEN IF PI* FS 
THEN ISO ELSE I$N ELSE 
IF PI m FS THEN STD ELSE SND ; 
IF TALL.FORMALNAME THEN 

BEGIN 

EMITO(XCH); IF TALL,ADDRESS>1023 THEN EMITO(PRTE); 

EMITO(GTI); 

END 
ELSE EMITPAIR(TALL»ADDRESS*GTl); 



15063000 


T 0586 


15064000 


T 0586 


15065000 


T 0586 


15066000 


T 0586 


15067000 


T 0586 


15066000 


T 0586 


15069000 


T 0586 


15070000 


T 0586 


15071000 


T 058ft 


15072000 


T 0586 


• SEGMENT 


********** 


15073000 


T 0000 


15074000 


T 0000 


15075000 


r oooo 


15076000 


r oooo 


15076100 ' 


r oooo 


15076200 


r oooo 


11077000 


r oooo 


15078000 ' 


r oooi 


15079000 


r oooi 


15080000 ' 


r 0002 


15081000 


r 0004 


15082000 ' 


r 0005 


11083000 1 


r 0005 


11084000 ' 


r 0009 


11085000 ' 


r 0009 


15086000 i 


r ooio 


11087000 1 


r ooii 


15088000 1 


r 0012 


15089000 1 


r 0012 


15090000 1 


r 0012 


15091000 1 


r 0013 


15092000 1 


r 0014 


11093000 1 


r ooi6 


15094000 1 


r ooi6 


15095000 1 


r ooie 


11096000 1 


r 0020 


15097000 1 


r 0020 


11998000 1 


r 0022 


19099000 1 


r 0025 


11100000 1 


r 0026 


15101000 1 


r 0027 


15101500 1 


r 0027 


15102000 1 


• 0028 


15103000 1 


' 0030 


11104000 1 


' 0033 


15105000 1 


0035 


11106000 1 


' 0037 


15106100 1 


0037 


15106200 1 


' 0040 


15106300 1 


' 0041 


15107000 1 


0041 



102 



ELSE 



END 

BEGIN 

IF Pl»Fl THEN BEGIN 

IF EICIASS < AMPERSAND 



GO 



IF 



EULASSs 
BEGIN IF 
IF 



vu«« * «wrt,na«mu THEN EMI TNC TALL , ADDRESS ) 
ELSE EMITVCTALL, ADDRESS); 
TO EXIT end; 



PERIOD THEN 

D0TSYNTAxCU#T2) THEN GO TO EXIT ; 

STEPI S ASSIGNQP THEN 

IF PI* FS THEN 

BEGIN ERR(20n;e0 TO EXIT END 
ELSE GO TO LI 



COMMENT 202 



END ; 
IF PI* FP 
VARIABLE- 



THEN BEGIN ERRC202); GO TO EXIT END; 
A VARIABLE APPEARS WHICH IS NOT FOLLOWED 
BY A LEFT ARROW OR PERIOD 
COMMENT 201 VARIABLE' A PARTIAL WORD DESIGNATOR IS NOT THE 

LEFT-MOST OF A LEFT PART LIST 
EMITI(TALL*TUT2); 

; 



* 

*; 

* 

*; 



OF SIMPLE VARIABLES 



END 
END 

ELSE 

IF TALL.CLASSXLABELIO THEN 
COMMENT THE FOLLOWING BLOCK HANDLES 
VARIABLESI 
1. VC*J 
VCR'*] 
V[RJ 

Vm.CSJLJ 
V[RJ * 

VCR J • CS I L3 



THESE CASES OF SUBSCRIPTED 



2. 
3. 

4, 
5, 

6, 
R IS A K-ORDER 
IN THE CASE OF 
IS EMITTED FOR 

1. 



*RQW DESIGNATOR FOR SI NGlE-DI mENSI ON, 
'ROW DESIGNATOR FOR MULTI'DIMENSION, 
'ARRAY ELEMENT#NAME OK VALUE, 
'PARTIAL WORD DESIGNATOR, VALUE, 
'ASSIGNMENT TO ARRAY ELEMENT, 
^ASSIGNMENT TO PARTIAL WQRD'LEFT-MOST . 



SUBSCRIPT LIST'I.E, Rs R1'R2' , , ,'RK . 
NO MONITORING ON V' THE FULLOWING CODE 
THE ABOVE CASESt 

CASE #1 IS A SPECIAL CASE 0F *2' NAMELY, SI NGLE 
DIMENSION, THE CODE EMITTED ISl 

VL'LOD , 
EXECUTION! PLACES ARRAY DESCRIPTER IN REG A, 

2, this code is basic to the subscription process, 

EACH SUBSCRIPT GENERATES THE FOLLOWING SEQUENCE 
OF CODE? 

AEXP'L*»IF FIRST SUBSCRIPT THEN VN ELSE CDC 
'LOD, 
FOR A K'ORQER SUBSCRIPTI0N'K*1 SEQUENCE ARE 
PRODUCED, THE aEXP IN EACH SEQUENCE REFERS TO 
THE CODE PRODUCED BY THE ARITHMETIC EXPRESSION 
PROCEDURE FOR THE ACTUAL SUBSCRIPT EXPRESSIONS* 
t* REFERS TO THE CODE PRODUCED FOR SUBTRACTING 
NON-ZERO LOWER BOUNDS FROM THE SUBSCRIPT 
EXPRESSIONCL* YIELDS NO CODE FOR ZERO BOUNDS), 
EXECUTION? PLACES ARRAY ROW DESCRIPTOR IN REG A 
, THE SPECIFIC ROW DEPENDS UPON THE 
VALUES OF THE K-l SUBSCRIPTS, 
FOR THE REMAINING CASES' 



11106000 
15109000 
15110000 
15U0100 
15110200 
15110300 

lsnoaoo 

15U1000 
15112000 
15113000 
15U4000 
15115000 
15116000 
15117000 
15118000 
15119000 
11120000 
15121000 
15122000 
15123000 
1512^000 
15125000 

15126000 
15127000 
15128000 
11128100 
15129000 
15130000 
15131000 
19132000 
11133000 
15134000 
19135000 
15136000 

15137000 
11138000 
15139000 

11140000 
15141000 
15142000 
15143000 
11144000 
15145000 

15146000 
15147000 
11148000 
15149000 
15150000 
11151000 
15152000 
15153000 
11154000 
15155000 
11156000 
15157000 
15158000 
15159000 



0043 

0043 

0043 

0044 

0045 

0046 

0049 

0050 

0050 

0053 

0054 

0055 

0057 

0057 

0057 

0057 

0059 

0059 

0059 

0059 

0059 

0060 

0060 

0060 

0060 

0060 

0062 

0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 

0062 
0062 

0062 
0062 

0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 

0062 
0062 
0062 
0062 



SEQUENCES OF CODE ARE EMITED Ai> IN CASE #2, 
HQWEVER#THE ACTUAL SEQUENCES ARE; 

ONE SEQUENCE ,<AEXP,L*>*FQR THE 1ST SUBSCRIPT. 

K-l SEQUENCES, (IF FIRST SUBSCRIPT THEN VN 

ELSE CDC»LOO»AEXP#L*)# FOR THE REMAINING 

SUBSCRIPTSMF K>1, 
AT THIS POINT, CASES #3-6 ARE DIFFERENTIATED 
AND ADDITION CQDE#P ART I CUL AR TO EACH CASE^IS 
EMITTED. 
ADD THE SEQUENCE* 

IF FIRST SUBSCRIPT 
EXECUTION* THE ARRAY 
ADD THE SEQUENCE! 
IF FIRST SUBSCRIPT 

y r U * T 

ADO THE SEQUENCE* 

IF FIRST SUBSCRIPT 
XC H' * 
ADD THE SEQUENCE! 

IF FIRST SUBSCRIPT 



THEN W 
ELEMENT 



ELSE COC. 
IS PUT IN 



REQ A, 



THEN VV ELSE COC#ZERQL» 



THEN VN ELSE COC#EXP# 



THEN VN ELSE CDC»DUP#LOD# 



EXP>T# XCH,*, 



BEGIN 



exP*T»*»ZEROL*ETC HAVE SAME MEANINGS AS DEFINED IN 
SIMPLE VARIABLE BLOCK, 



go to exit; 



go exit end; 



JAZZ« 



ITUPI 



IF STEPI * LFTBRKET THEN 

BEGIN 

IF ELCLA5S * PERIOD THEN 

BEGIN 

IF D0TSYNTAXCTI#T2J THEN 

IF STfcPI • ASSIGNOP THEN 
BEGIN 

if p1xf5 then begin errc209); 
if tall. class s intarrayio then 
begin emitpair(tall.ad0ress,lqd) end 
else emitn(tall, address); stackct * stackcuw 
stepit; aexp; 

EMITDM8-T2,T1#T2>; 

EMITPAIR(TALL»AODRESS/ 

IF Pl*F5 THEN STO ELSE SNO); 
STACKCT ♦ 0; END 
ELSE BEGIN 
EMITHTALL*U,T2>; 



end; 

go to exit # 

eno; 
if elclass « assignor then 
end; 

J «• 0/ 



GO TO JAZZ ELSE GO TO ITUP ; 



15160000 


T 0062 


19161000 


T 0062 


19162000 


T 0062 


15163000 


T 0062 


19164000 


T 0062 


19165000 


T 0062 


15166000 


T 0062 


19167000 


T 0062 


19168000 


T 0062 


15169000 


T 0062 


19170000 ' 


r 0062 


lsiriooo 


r 0062 


15172000 ' 


r 0062 


15173000 ' 


r 0062 


19174000 ■ 


r 0062 


15175000 ' 


r 0062 


15176000 ' 


r 0062 


15177000 * 


r 0062 


19178000 ' 


r 0062 


15179000 1 


r 0062 


15180000 1 


r 0062 


15161000 1 


r 0062 


19182000 1 


r 0062 


19183000 1 


r 0062 


15184000 1 


r 0063 


15184100 1 


r 0063 


15184200 i 


r 0063 


15184300 1 


r 0063 


15184400 1 


r 0063 


15233000 T 


' 0063 


15233002 ] 


- 0064 


19933003 1 


• 0064 


15233004 1 


0065 


15233005 1 


' 0065 


19133006 1 


0067 


19233007 1 


' 0068 


19133006 T 


0069 


15233009 T 


0071 


15133010 T 


00?2 


15233011 T 


0074 


15133012 1 


0077 


11233013 T 


0079 


15233014 T 


0080 


15233015 T 


0081 


15233016 T 


0084 


19233017 T 


0085 


15133016 1 


0085 


15133019 T 


0087 


19233020 T 


0087 


15233021 T 


0087 


15233022 7 


0087 


15233023 T 


0087 


15233024 T 


0087 


15233025 T 


0087 


15133026 T 


0087 


15233027 T 


0089 


19234000 T 


0089 



stackct «■ o; 

COMMENT 207 VARI ABLE-MlSSlNG LEFTBRACkET ON SUBSCRIPTED VARIABLE *; 
NEXT» IF STEPI * FACTOP THEN 

BEGIN 
IF J*lt TAU.INCR THEN 

BEGIN ERR(203);GO EXIT END* 
COMMENT 203 VARIABLE- ThE NUMBER QF SUBSCRIPTS USED IN A ROW * 

ROW DESIGNATER DOES NOT MATCH THE ARRAY * 
DECLARATION, *; 

IF STEPI * RTBRKET THEN 

BEGIN ERRC2Q4);gO EXIT END* 
COMMENT 204 VARIABLE" COMPILER EXPECTS A J IN A ROW DESIGNATER *; 

COMMENT 205 VARIABLE* A RQW DESIGNATER APPEARS OUTSIDE: OF A FILL * 

STATEMENT OR ACTUAL PARAMETER LIST. *; 

IF J«0 THEN 

EMI TPAIR( TALL. ADDRESS* LOD); 
5TLB*0J 

stepit; 
go to exit; 
end of row designator portion ; 
if elclassslitno and elbatc 13 . address*0 and t ablec 1+1 )*rtbrket 
and talliclass^nameid then 

BEGIN 
I*I*U 

IF STEPIsASSlGNOP THEN BEGIN 
LASSl IF Ti*0 THEN EMITV C TaLL. ADDRESS ) ; 

STEPIT; AEXp; EMITD(48-T2#Tl#T2); 

EMITN(TALL. ADDRESS); 

EMITOCIF TALL.CLASS^NAMEID THEN 

IF Pl-FS THEN ISO ELSE ISN ELSE 
IF P1*FS THEN STD ELSE 5ND); 
STACKCT * 0; 

GO TO EXIT END 
ELSE 

if elclass * period then begin 

if d0tsyntax(tl#t2) then go to exit; 
if stepi « assignop then if p1«fs then go to lass 
else begin errc2q9); gq exit end; 

end; 

if pl'fs then begin errc210); go exit end; 

emiti(if pl«fl then tall else t all&realldc 2 * 4 \ x 7 ] , t \> t2); 

go to exit; 

end; 
aexp; 
stackct ♦ u 

J * J + \i 

IF ELCLASS 9 COMMA THEN 
BEGIN 
COMMENT ***** MONITOR FUNCTION M4 GOES HERE ; 

IF J * 1 THEN EMITV(TALL. ADDRESS) ELSE EMITOCCOC); 

go to next; 
end of subscript comma handler ; 
if elclass * rtbrket then begin err(206);g0 exit end; 



15234500 
15135000 
15253000 

1S254000 
15255000 

15156000 
15257000 
11258000 
15259000 
15260000 
15261000 
15262000 

15263000 
15264000 

15865000 
15266000 
15867000 
15173000 
11274000 
15875000 
11276000 
15276010 
15276020 
15876030 
19876040 
15876050 
15276060 
15276070 
15276080 
15276090 
15276100 
15276H0 
15276U5 
19276120 
15276130 
15276140 
15276150 
15276160 
15276170 
19276180 
15876190 
15276200 
15276210 

15276220 
15876230 

15876240 
15877000 
15278000 
15280000 
15287000 
15288000 
15289000 
15890000 
15291000 
19192000 
19293000 
15294000 



0090 
0091 
0091 

0092 
0092 

0094 
0096 
0094 
0096 
0096 
0097 
0098 

0096 
0098 

0098 

0098 

0099 

0101 

0102 

0102 

0103 

0103 

0107 

0109 

0109 

0111 

0112 

0115 

0118 

0119 

0121 

0124 

0126 

0127 

0128 

0128 

0129 

0131 

0133 

0135 

0135 

0138 

0138 

0142 

0142 

0142 

0142 

0143 

0144 

0145 

0146 

0146 

0146 

0150 

0150 

0150 

0150 



ON SUBSCRIPTED 
TALL. INCH; 



EXIT END* 
NOT MATCH 



VARIABLE*; 



COMMENT 206 VARIABLE- MISSING RIGHT BRACKET 

GT1*IF TALL.CLASSiNAMEID THEN 1 ELSE 

IF JXGT1 THEN 

BEGIN ERR(208);G0 TO _ . . 
COMMENT 208 VARIABLE* NUMBER QF SUBSCRIPTS DOES NOT MATCH WITH 

ARRAY DECLARATION, 
IF STLPI « ASSIGNQP THEN 
BEGIN 
LASTI IF J*\ THEN EMITN(TALL.ADORESS) ELSE EMITOCCDC); 
IF TALL, CLASS 2 LONGID THEN EMlTOCINX); 
IF Ti" THEN 

BEGIN IF PI* FR THEN GO TO EXIT END 
ELSE BEGIN EMITQCDUP)JEMIT0<L0D)END; stepit; 
AEXPi 

EMITDU8-T2*T1#T2) ; 

emitocxch); 

IF TALL.A00RESS>1023 THEN EMITOCPRTE); 
EMITOCIF TALL. CLASS MOD 2 * INTARRAYID MOD 2 THEN 

IF Pi ■ FS THEN ISO ELSE ISN ELSE 
IF PlsFS THEN STD ELSE SNDH 
STACKCT * 0; 

pi*o ; 

GO TO EXIT ; 
END OF ASSIGNMENT STATEMENT SUBSCRIPTED VARIABLES; 
IF ELCLASSsPERIOD THEN 
BEGIN 

IF DGTSYNTAX(Tl*T2) THEN GO TO EXIT! 
IF STEPI » ASSIGNQP THEN IF P1»FS THEN GO TO LAST 
ELSE BEGIN ERRC209)i GO EXIT END; 
IF JM THEN EMITQ(COC) ELSE IF TALL»CLASS I LONGID THEN 
BEGIN EMlTN(TALL»ADDRESS)fEMlTO(lNX)IEMIT0(LOD) END 
ELSE EMITVCTALL. ADDRESS); 

END 
ELSE 
COMMENT ***** MONITOR FUNCTION M10 GOES HERE ; 

BEGIN COMMENT MONITOR FUNCTION MlO; 

SPCLM0N*P1 p FP OR ELCLASS Z AMPERSAND; 
IF J * 1 
THEN IF TALL, CLASS J LONGID THEN 
BEGIN 

EMITNCTALL. ADDRESS); EMITQUNX)/ 
IF SPCLMON THEN EMITO(LOO) J 
END ELSE IF SPCLMON 

THEN EMITVCTALL, ADDRESS) 
ELSE EMITNCTALL. ADDRESS) 
ELSE EMITQUF SPCLMON 
THEN COC 
ELSE CDC); 

then errc210); 
exit; 



*; 



■*FS 



COMMENT 210 



IF 



IF PI 

GO TO 

end; 
p1»fs then begin errc210); go to exit end i 



VARIABLE-MISSING LEFT ARROW OR PERIOD, 

STACKCT * 0; 

IF Tl * THEN BEGIN EMIT I (0#T \> T2 ) ; PI * END; 

END OF SUBSCRIPTED VARIABLES 

ELSE 



*; 



15295000 


T 0153 


11B9510Q 


T 0153 


15296000 


T 0157 


U297000 


T 0157 


15B98000 


T 0159 


15299000 


T 0159 


15300000 


T 0159 


15301000 


T 0160 


15302000 


r oi6i 


15303000 


r 0164 


15804000 


r 0167 


U3Q5Q00 ' 


r 0168 


15306000 " 


r 0169 


11307000 ' 


r 0172 


15308000 ' 


r 0172 


15309000 ' 


r oi7a 


15810000 ' 


r 0175 


15333000 1 


r 0177 


15834000 1 


r 0180 


15335000 1 


r 0183 


15835500 1 


r 0186 


1S336000 1 


r 0186 


15337000 1 


r 0187 


15338000 1 


r 0188 


15839000 1 


r 0188 


15840000 1 


r 0189 


15341000 1 


p 0189 


15342000 1 


' 0191 


15843000 1 


r 0193 


11344000 1 


0195 


15344100 1 


' 0199 


11344200 1 


' 0202 


15345000 1 


' 0204 


15346000 1 


- Q204 


15847000 1 


' 0204 


11348000 1 


0204 


15349000 1 


• 0204 


19350000 1 


■ 0206 


15351000 T 


' 0207 


11151100 1 


' 0209 


15151200 1 


0209 


15351300 1 


r 0211 


15351400 7 


0213 


11152000 1 


' 0213 


15353000 1 


■ 0214 


11354000 1 


0216 


11355000 7 


0218 


11356000 T 


0219 


11364000 1 


0220 


15865000 7 


0222 


15166000 T 


0222 


15367000 T 


0222 


11368000 T 


0225 


19369000 T 


0225 


15870000 T 


0226 


11876000 T 


0229 


15376100 T 


0229 



EXIT 



BEGIN COMMENT LABUIDJ 

TU»TAKECT2Js»GlTCTALD); 

PUTU#T2)i 

IF T1*0 THEN Tl«sti 

IF CTi*L-Tl) DIV 4 > 127 THEN BEGIN T l«-0; FLAG(50 )/END; 

EMIT(Tlx«*3)j 

stepit; 

END OF labelid; 

END OF THE VARIABLE ROUTINE; 



15376200 
15376300 
15376400 
15376500 
15376600 
15376700 
11376800 
15376900 
15377000 



T 

T 
T 
T 
T 
T 
T 
T 
T 



0229 
0230 
0232 
0233 
0235 
0239 
0241 
0241 
0241 



102 IS 246 LONG, NEXT SEG 



STREAM PROCEUUHES; 
OF LABEL i 



COMMENT THIS SECTION GENERATES CODE FOR 
COMMENT 00 LABEL OECS UPON APPEARANCE 
PR8CEDURE DECLARELABEL > 
PRT(711) * OECLARELABEL 

BEGIN 

KLASSF «• STLABID; 

VONF * FORMALF * FALSE* 

ADDRSF * q; 

makeupaccum; e; putnbump<o; 

elbatci3 * accumcoj& lastinfoc 35 x 35 1 1 3 }i 

end; 



16Q0OU0Q T 
16000050 T 
16000100 T 



16000200 
16000300 
16000400 
16000500 
16000600 
16000700 
16000800 



0566 
0586 
0586 

0586 

0586 
0587 
0589 
0589 
0591 

0594 



PROCEDURE STREAMSTMT ; 
BEGIN 
DEFINE LFTPAREN»LEFTPAREN#,L0C=C36tl2]##LASTGTsC24ll2]#, 



DEFINE 



LQCFLD*36I36«12#,LGTFL0*24*24*12*; 
DEFINE LEVEL*LVL*#ADDOP«ADOP#; 



START 



PRTC712) « 



PROCEDURE 
ADJUST 



JFw 
RCA 

v)RV 

CRF 
BNS 

NOP 

ENS 

TAN 

BIT 
JFC 

SED 

RSA 

TRP 

BSS 

BSD 

SEC 

JNS 



39** 
40»* 
47** 
35** 
42#» 
1#» 
41#» 
3Q## 
3i*# 
37## 
06*» 
43#* 
60## 
3#* 
2*. 
34#» 
38*; 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

COMMENT 
COMMENT 



7.5.5.1 JUMP FORWARO UNCONDITIONAL 
7,5.7,6 RECALL CONTKUL ADOKESS 

7.5.5.2 JUMP REVERSE UNCONDITIONAL 
7,5,10.6 CALL REPEAT FIELO 

7,5.5,5 BEGIN LOOP 



ALPHAMERIC 



adjust;; 



7.5.5.6 END LOOP 

7.5.3.7 TEST FOR 

7.5.3.8 TEST BIT 

7.5.5.3 JUMP FORWARD CONDITIONAL 
7.5.7,8 SET DESTINATION ADDRESS 

7.5.7.4 RECALL SOUHCE ADORESS 

7, 5*2.2 TRANSFER PROGRAM CHARACTERS 

7.5.6.6 SKJP SOURCE BIT 

7.5.6.5 SKIP DESTINATION BITS 
7.5,10.1 SET COUNT ; 

7.5.5.7 JUMP OUT LOUP 



16001000 


T 


0594 


16002000 


T 


0594 


16003000 


T 


0594 


F SIGMENT 


********** 


16004000 


T 


0000 


16005000 


T 


0000 


16006000 


T 


0000 


16007000 


T 


0000 


16006000 


T 


0000 


16009000 


T 


0000 


16010000 


T 


0000 


16011000 


T 


0000 


16012000 


T 


0000 


16013000 


T 


0000 


16014000 


T 


oooo 


16015000 


T 


oooo 


16016000 


T 


oooo 


16017000 


T 


oooo 


16018000 


T 


oooo 


16019000 


T 


oooo 


16020000 


T 


oooo 


16021000 


T 


oooo 


16022000 


T 


oooo 


16023000 


T 


oooo 


16023100 


T 


oooo 
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PRT<713) m FIXC 



COMMENT FIXC EMITS 8ASICLY FORWARD JUMPS, HOWEVER IN THE 
OF INSTRUCTIONS INTERPTEO AS JUMPS BECAUSE OF A 
A VALUE * AND THE JUMP 2 64 SYLLABLE* A JF* 
A RCA I (L IS STACK ADDRESS OF A PSEUDU 
MUST ALSO BE MANUFACTURED) IS EMITTED, 
PROCEDURE FIXCCS); VALUE SJ REAL S; 

BEGIN 

real savl»d#f; 



LABEL 
i 



STACKCF + 2) »> SAVL 
STACK(F+3) « D 
STACKCF+4) * F 



CASE 

CRF ON 
1 AND 
WHICH 



END 



START 



IF 0+ (SAVL*L) - (L*S)»1 £ 63 THEN EMITCCD#GETC S ) ) 

ELSE FLAGC700); 
L*SAVL I 
FIXC i 



16024000 T 0000 

16025000 T 0000 

16026000 T 0000 

16027000 T 0000 

16028000 T 0000 

16029000 T 0000 

16030000 

16031000 

OF SEGMENT 



T 0000 

T 0000 
********** 



16032000 T 
16033000 T 
16034000 T 
16057000 T 
104 IS 10 LONG, 



0000 
0004 
0006 
0007 
NEXT SEG 



104 



103 



COMMENT EMlTjUMP IS CALLED BY GQTOS AND JUMPCHAIN, 

THIS ROUTINE WILL EMIT A JUMP IF THE OlSlANCt IS S 63 
SYLLABLES 'OTHERWISE* IT GETS A PRT CELL AND STUFFS THE 
STACK ADDRESS INTO THE LABEL ENTRY IN INPU AND EMITS AN 
RCA ON THIS STACK CELL* AT EXECUTION TIME ACTUAL PARAPART 
INSURES US THAT THIS CELL WILL CONATlN A LABEL DESCRIPTOR 
POINTING TO OUR LABEL IN QUESTION. i 
PROCEDURE EMITJUMPC E)J VALUE £1 REAL EJ 
PRTC714) s EMITJUMP 

BEGIN 
REAL T#D; 



STACKCF+2) » T 
STACKCF+3) s D 

STACKCF+4) * ADDR 



16058000 


T 


0000 


16059000 


T 


0000 


16060000 


T 


0000 


16061000 


T 


0000 


16062000 


T 


0000 


16063000 


T 


0000 


16064000 


T 


oooo 


16065000 


T 


0000 


16066000 


T 


oooo 


16067000 


T 


oooo 



REAL ADDR; 

IF ABSC 
D*(T*TAKE(GIT(E)),L0C)"L*i)i64 THEN 

FLAGC700) 
ELSE EMITCCD»IF D <0 THEN JRV ELSE JFW); 
END EMIT JUMPi 



START OF SEGMENT ********** 105 



16068000 T OOOO 



16069000 
16070000 

16071000 
16079000 
16080000 



OOOO 

oooo 

0004 
0005 

0009 



105 IS 12 LONG, NEXT SEG 103 



THERE IS A LINKEDLIST IN THE CODE 
PLACED. THE 1ST LINK IS POINTED 

INFO, THE LAST 



COMMENT WHEN JUMPCMAIN IS CALLED 
ARRAY WHERE JFWS MUST BE 

TO BY THE LOC FIELD OF EACH LABEL ENTRY IN 
LINK IS * 4096. i 
PROCEDURE JUMPCHAINC E)> VALUE EJREAL Zi 
PRTC715) » JUMPCHAIN 

BEGIN 

REAL SAVL >LINKJ 



16081000 


T 


oooo 


16082000 
16063000 
16084000 
16085000 


T 

T 
T 
T 


oooo 
oooo 
oooo 
oooo 



16066000 T 0000 

16087000 T OOOO 

START OF SEGMENT ********** 106 



STACKCF+2) * SAvl 
STACKCF+3) s LINK 



SAVL ♦> Li 

L * TAKE(GIT(E)),LASTGT 

WHILE L* «095 0U 

BEGIN 

LINK * GETCDi 

EMITJUMP* E)i 

L ♦ LINK 

end; 

l*SAVLi 

END JUMPCHAIN ; 



16088000 
16089000 
16090000 
16091000 
16092000 

16093000 
16094000 
16095000 
16096000 
16097000 



0000 
0000 
0003 

0004 
0004 
0005 
0006 
0006 
0009 
0009 



106 IS 12 LONG, NEXT SEG 103 



PRT(716) * NESTS 



COMMENT NESTS COMPILES THE NEST STATEMENT, 

A VARIABLE NEST INDEX CAUSES THE CODE, 

CRF V* BNS *NOP#NOP» TO BE GENERATED INITIALLY. 
AT THE RIGHT PAREN THE BNS IS FIXED WITH THE LENGTH UF 
THE NEST (NUMBER OF SYLLABLES) IF THE LENGTH S63, QTHERWI SE 
IT IS FIXED WITH A 1 AND THE NOPS REPLACED WITH JFW 1, 
RCA P. THIS IS OONE BECAUSE THE VALUE OF V AT EXECUTION 
MAY * AND THIS CODE CAUSES A JUMP AROUND THE NEST, 
JUMPQUT INFO IS REMEMBERED IN A RECURSIVE CELL AND 
NEST LEVEL INCREASED BY ONE. 

WHEN THE RIGHT PAREN IS REACHED, (IF THE STATEMENTS IN 
THE NEST COMPILED)* JOINFQ IS CHECKED FUN THE EXISTANCE 
OF JUMPQUT STATEMENTS IN THE NEST, IF SOOTHE THE JUMPS 
ARE FIXED BY FAKING TOTQS INTO COMPILING THE REQUIRED 
JUMPS, 

FINALLY THE BNS IS FIXEDMF REQUIRED*AND NEST LEVEL 
AND JOINFO RESTORED TO THEIR ORIGINAL VALUES. i 
PROCEDURE NESTSi 

BEGIN 
LABEL 



STACK(F+2) 
STACK(F*3) 



JOINT 
BNSFIX 



exit; 

REAL JOINT, BNSFlXi 

IF ELCLASS*LITNU THEN 

BEGIN 

EMITC(EL8AT[I], ADDRESS, CRF)i BNSFIX*- Li 

EMlT(8NS)i 

END 
ELSE EMITC(ELBATCU, ADDRESS, BNS)i 

IF STEPI * LFTPAREN THEN BEGIN ERR(262)i GO TO EXIT ENDi 
NESTLEVEL*NESTLEVEL ♦ U 
JOINT * jQINFOi 
JOINFO * Oi 
DO BEGIN 

stepit; errqrtqg ♦ true; streamstmt 
end until elclass * semicolon i 

IF ELCLASS * RTPAREN THEN BEGIn ERR(262)iG0 TO EXIT ENDi 
EMIT ( ENS); 



START 



16098000 


T 


oooo 


16099000 


T 


0000 


16100000 


T 


oooo 


16101000 


T 


0000 


16102000 


T 


oooo 


16103000 


T 


oooo 


16104000 


T 


oooo 


16105000 


T 


oooo 


16106000 


T 


oooo 


16107000 


T 


oooo 


16108000 


T 


oooo 


16109000 


T 


oooo 


16110000 


T 


oooo 


16111000 


T 


oooo 


16112000 


T 


oooo 


16113000 


T 


oooo 


16114000 


T 


oooo 


16115000 


T 


oooo 


16116000 


T 


oooo 


16117000 


T 


oooo 


OF SEGMENT 


#******! 


16118000 


T 


oooo 


16119000 


T 


oooo 


16120000 


T 


oooo 


16121000 


T 


0001 


16122000 


T 


0003 


16123000 


T 


0004 


16124000 


T 


0004 


16125000 


T 


0006 


16126000 


T 


0009 


16127000 


T 


0010 


16128000 


T 


oou 


16129000 


T 


0012 


16130000 


T 


0013 


16131000 


T 


0014 


16132000 


T 


0016 


16133000 


T 


0018 



107 



IF JOINFO X THEN 
BEGIN 
COMMENT PREPARE TO CALL JUMPCMAIN FORJUMPQUTS; 
ADJUST/ 

PUT(TAKECGIT(JOlNFO))&iaOCFUD3#GITCJOINFU))i 
JUMPCHAINCTAKE(vl0INF0)&J0lNF0C35l35«13 3 ); 

end; 

IF BNSFIX X THEN F IXC CBNSF IX ); 
NESTLEVEL * NESTLEVEL* U 
JOINFO * JOINT ; 
EXITt END NESTS ; 



161 34 

16135 
16136 
16137 
16138 
16139 
16140 
16141 
16142 
16143 
16144 



000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 



0019 

0020 
0020 
0020 
0021 
0024 

0026 
0026 

0028 
0030 
0030 



107 IS 34 LONG, NEXT SEG 103 



COMMENT LABELS HANDLES STREAM LABELS, 

ALL LABELS ARE ADJUSTED TO THE BEGINING OF THE NEXT 
WORD (IN THE PROGRAMSTREAM). 

IF A GO TO HAS NOT BEEN ENCOUNTERED BEFQKE THE LABEL 
THEN THE NEST LEVEL FIELD IS ENTERED AND THE DEFINED BIT* 
C1I1J* SET TO ONE, FOR DEFINED LABELS*IF WHERE A GO TO 
HAS APPEARED* A CHECK IS MADE THAT THE CURRENT NEST LEVEL 
MATCHES THE LEVEL OF THE LABEL* 

MULTIPLE OCCURANCES ARE ALSO CHECKED FOR AND FLAGGED* 
FINALLYjJUMPCHAIN IS CALLEO TO FIX UP ANY FORWARD GO TOS 
AND GET A PRT LOCATION FOR ANY JUMPS 2:64 SYLLABLES, ; 
PROCEDURE LABELS* 
PRTC717) « LABELS 

BEGIN 

REAL 6TU 



STACKCF+2) m GTl 



ADJUST* 

GTl *■ ELBATCHJ 

IF STEPI * COLON THEN EKRC258) 

ELSE 

BEGIN 

IF TAKE(GT2*GIT(GT1)),L0C * THEN FLAGC259}* 
IF GT1>0 THEN 
BEGIN 

PUTC-CTAKECGT1HNESTLEVELU1U3I5J)*GT1); 
PUTC-L*GT2) 
LND 
ELSE 

BEGIN 

if gtl.levelxnestlevel then flag<257); 

put(cl)&take(gt2)tlgtfld3*gt2>; 

jumpchaincgtuj 

end; 

END 

; stepit; 
end labels ; 



16145000 1 


' 0000 


16146000 1 


• 0000 


16147000 1 


0000 


16148000 1 


oooo 


16149000 T 


0000 


16150000 T 


oooo 


16151000 T 


oooo 


16152000 T 


oooo 


16153000 T 


oooo 


16154000 T 


oooo 


16155000 T 


oooo 


16136000 T 


oooo 


16157000 T 


oooo 


16157100 T 


oooo 


START OF SEGMENT * 


********* 


16158000 T 


oooo 


16159000 T 


oooo 


16160000 T 


0001 


16161000 T 


0003 


16162000 T 


0003 


16163000 T 


0004 


16164000 T 


0008 


16165000 T 


0009 


16166000 T 


0009 


16167000 T 


0012 


16168000 T 


0013 


16169000 T 


0013 


16170000 T 


0013 


16171000 T 


0014 


16172000 T 


0016 


16173000 T 


0019 


16174000 T 


0020 


16175000 T 


0020 


16176000 T 


0020 


11177000 T 


0020 


108 IS 83 LONG* 


NEXT SEG 



108 
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PRT(720) ■ IFS 



STACK(F+2) « ADDR 
STACKCF+3) » FlXl 
STACK(F*«) * FIX2 



COMMENT IFS CUMPILES IF STATEMENTS. 

FIRST THE TEST IS COMPILED. NOTE THAT IN THE 
CONSTRUCTS «SC REUOP DC AND "SC RELOP STRING" THAT 
THE SYLLABLE EMITTED IS FETCHED FROM ONE UF TWO FIELDS 
IN THE ELBAT WQRO FOR THE RELATIONAL OPERATOR. OTHERWISE 
THE CODE IS EMITTED STRAIGHTAWAY, 

A TEST IS MADE TO SEE WHETHER THE STATEMENT AFTER THE 
"THEN" COULD POSSIBLY BE LONGER THAN 63 SYLLABLES* AND IF 
SQ# Z NOPS ARE EMITTED FOR FIXC IN CASE A RCA WILL HAVE 
TO BE GENERATED, 

THIS PRQCEOURE DOES NO OPTIMAZATION IN THE CASES 
IF THEN GO TO L'lF THEN STATEMENT ElSE Gu TO L' OR 
IF THEN GO TO Li EUSE GO TO L2 ; 
PROCEDURE IFS; dEGlN 

DEFINE C0MPAREC0DE«U2»6)#,TESTC0DE't36l6 3#; 

label ifsb»iftog#ifsc,exit; 
switch ifsw ♦ ifsb»iftqg>if$c; 
real addr»fixufix2 i 



START 



ADDRM i 

GO TO IFSWtSTEPI -SBV + U ; 
IF ELCLAS5*LQCLID THEN 
BEGIN 

EMlTC(ELBAT[i),ADOKESS»CRFj; 

addr*o; 

END 



ELSE 



IFSCi 



IF ELCLASS = LITN0 THEN ADDR •• ELBATCIJ., 

BEGIN ERRC250); GO TO EXIT END; 

SCV THEN BEGIN ERR(263);G0 TO EXIT ENDi 
RELOP THEN BEGIN ERR(264)JGo TO EXIT ENDi 
DCV THEN EMITC< ADDR* ELBATC 1-13 , COMPARECODE > 



i 



IFSBJ 
IFTOGI 



ADDRESS 
ELSE 
IF STEPI 
IF STEPI 
IF STEPI 
ELSE 

IF ELCLASS * 5TRNGC0N THEN 

EMITC(ACCUM£lJ,tl8l6],ELBATCI-l].TESTCODE) 
ELSE 

IF ELCLASS^LITNU THEN EMI TCC C , ELBAT C 1-13 .TE5TC0DE ) ELSE 
IF ELCLASSJIDMAX AND Q*"5ALPHA« THEN EMI TC ( I? » TAN ) 
ELSE BEGIN ERR(265>;G0 TO EXIT END; 
GO TO IFTOG ; 
EMITCU'BIT); 
IF STEPI * THENV THEN BEGIn ERHC266); GO TO EXIT END; 

fixi «■ l; 

EMlT(JFCj; 

IF STEPI^ELSEV THENt 
STREAMSTMTi 

IF ELCLASSs EL5EV THEN 
BEGIN 

fix2 * l; emit(jfw); 

fjxccfixuj 

stepit; 

streamstmt; 

fixccfix2); 



16176000 


T 


oooo 


16179000 


T 


0000 


16180000 


T 


0000 


16181000 


T 


oooo 


16182000 


T 


0000 


16183000 


T 


oooo 


16184000 


T 


oooo 


16185000 


T 


oooo 


16186000 


T 


oooo 


16187000 


T 


oooo 


16188000 


T 


oooo 


16189000 


T 


oooo 


16190000 


T 


oooo 


16191000 


T 


oooo 


16192000 


T 


oooo 


OF SEGMENT 


********** 


16193000 


T 


oooo 


16194000 


T 


oooo 


16195000 


T 


0004 


16196000 




000(1 


16197000 




0005 


16198000 




0009 


16199000 




0009 


16200000 
16201000 




ooio 




0012 


16202000 




0012 


16203000 




0012 


16204000 




0012 


16205000 




0014 


16206000 




0017 


16207000 




0020 


16208000 




0023 


16209000 




0026 


16210000 




0027 


16211000 




0028 


16212000 




0031 


16212500 




0032 


16213000 




0036 


16214000 




0039 


16215000 




0043 


16216000 




0043 


16117000 




0045 


16218000 




0047 


16219000 




0048 


16220000 




0049 


16229000 




0050 


16230000 




0051 


16231000 




0052 


16232000 




0052 


16233000 




0054 


16234000 




0054 


16235000 




0055 


16236000 




0055 
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ELSE 
EXITJEND 



END 

FIXCCF 1X1)* 

its * 
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16237000 T 

16238000 T 

16839000 T 

IS 61 CONG* 



0056 
0056 
0057 
NEXT SEG 
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PRTC721) * GOTOS 



COMMENT GOTOS HANDCES GO TO AND THE CAST PART OF JUMP OUT TO 
STATEMENTS. 

IF THE CABEC HAS BEEN ENCOUNTERED THEN EMITjUMP IS CACLED 
AN PRODUCES A JRV UR RCA IN THE CASE OF JUMPS264 SYCCABC 
ES. OTHERWISE* A CINK IS EMITTED POINTING ANY PREVIOUS 
GO TOS IN THE CASE OF FORWARD JUMPS. 

FINACCY* IF THE NEST LEVEC IS DEFINED THEN IT IS CHECKED 
AGAINST THE CURRENT CEVEC MINUS THE NUMBER QF CEVECS TU 
BE JUMPED OUT. QTHERWISE*NEST CEVEC IS DEFINED. J 
PROCEDURE GOTOS; 

BEGIN 
CABEL EXIT* 

IF STEPI >TQV THEN 1*1-1 * 

IF STEPI * STCABID THEN IF ECCCASS S IDMAX THEN 

OECCARECABEC ECSE BEGIN ERRC260)* GU TO EXIT END* 
IF<GT2*TAKECGIT<GmEC6ATClJ))).MQN=l 
OR GT2.C0C0 THEN EMJT JUMP(GTI ) 
ECSE 

BEGIN PUT(0tCC24l36lt23*GlT(GTl)J* 
IF GT1>0 THEN 
BEGIN 

PUT(-(TAKE(GTi)&CNESTCEVEC-JUMPCEVECHliU3t5J)»GTl)* 
EMITNC1023); 
END 



ECSE 



BEGIN 

IF GT1.CEVEL > NeSTLEVEC 

EMITCGT2.CASTGT); 



JUMPCEVEC THEN FCAGC257); 



EXIT! 



ENO* 

end; 
jumpcevel*0 
end gotos 



16240000 

16241000 
16242000 
16243000 
16844000 
16845000 
16846000 
16247000 
16248000 
16849000 

16250000 
16251000 
START OF SEGMENT 
16852000 
16853000 
16853100 
16854000 
16255000 
16856000 
16257000 
16856000 
16259000 
16260000 
16261000 
16262000 
16263000 
16264000 
16865000 
16266000 
16267000 
16268000 
16269000 
16870000 
110 IS 29 CONG* 



0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

oooo 

********* 

oooo 

0002 
0005 
0007 
0010 
0013 
0014 
0017 
0017 
0018 
0021 
0022 
0022 
0022 
0022 
0025 
0027 
0027 
0027 
0027 
NEXT SEG 
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COMMENT RECEASES COMPICES THE STREAM RECEASE STATEMENT. 

THE COOE GENERATEO IS » 

SED FICE 

RSA 0, 
AT EXECUTION TIME THIS CAUSES AN INVACiD ADORESS WHICH 
INTERPETEO BY THE MgP TO MEAN RECEASE THE FICE POINTED 
BY THE DESTINATION ADDRESS. 

THE MONITOR BIT IS SET IN INFO FOR THE COCAC VARIABCE J 
THAT ACUTAC PARAPART MAY BE INFORMED CATEK THAT A FICE 
MUST BE PASSED FOR THIS FQRMAC PARAMETER* 





16271000 T 


OOOO 




16872000 T 


OOOO 




16273000 T 


OOOO 




10274000 T 


OOOO 


IS 


16875000 T 


OOOO 


TO 


16|76000 T 


oooo 




16277000 T 


oooo 





16878000 T 


oooo 




16279000 T 


oooo 




16280000 T 


oooo 



PRTC722) ■ 



PROCEDURE 
INDExS 



COMMENT INDEXS COMPILE STATEMENTS BEGlNlNG WITH 81, I * C I * TALLY 
OR LOtALIDS , 
THREE CASES PRESENT THEMSELVES* 

LETING X BE EITHER OF SI*DI*CI OR TALLY* TH&Y ARE« 

CASE I LOCLID ♦ X 

CASE II X * X .,, 

CASE III X *■ EITHER LQC*LUCLID*SC OR DC. 
THE VARIABLE "INDEX" IS CQMPUTED*DEPENDING UPON WHICH 
CASE EXlSTStSUCH THAT ARRAY ELEMENT "MACNQCINDEX ] "CONTAINS 
THE CODE TO BE EMITTEO. 

EACH ELEMENT OF MACRO HAS 1-3 SYLLABLES UROEHED FROM 
RIGHT TO LEFT* UNUSED SYLLABLES MUST = 0, EACH MACRO 
MAY REQUIRE AT MOST ONE REPEAT PART, 

IN THIS PRQCEDURE»1NDEXS#THE VARIABLE "AOOR" CONTAINS THE 
PROPER REPEAT PART BY THE TIME THE LABEL "GENERATE" IS 
ENCOUNTERED, THE SYLLABLES ARE FETCHED FROM MACRO[TYPEJ 
ONE AT A TIME AND IF THE REPEAT PART * THEN"ADDR« IS 
USED AS THE REPEAT PART*THU$ BUILDING A SYLLABLE WITH 
THE PROPER ADDRESS AND OPERATOR , 

NOTEl IF MACR0CTYPE3 * THEN THIS SIGNIFIES A SYNTAX 
ERROR. i 

indexs; 



16281000 T OUOO 

16282000 T 0000 

16283000 T 0000 

16284000 T 0000 

16885000 T 0000 

16886000 T 0000 

16287000 T 0000 

16288000 T 0000 

16889000 T 0000 

16290000 T 0000 

16291000 T 0000 

16292000 T 0000 

16293000 T 0000 

16194000 T 0000 

16295000 T 0000 

16296000 T 0000 

16297000 T 0000 

16298000 T 0000 

16299000 T 0000 

16300000 T 0000 

16301000 T 0000 

16302000 T 0000 

16303000 T 0000 

16304000 T 0000 

16305000 T 0000 

16306000 T 0000 

U307000 T 0000 

16308000 T 0000 

16309000 T 0000 

16310000 T 0000 

16311000 T 0000 



STACK(F*2) » 

STACK(F+3) = 

STACK(F*4) m- 

STACKCF+5) * 



TCLASS 
INDEX 
ADDR 
J 



BEGIN 

LABIL EXIT*GENERATE*L*LU 

INTEGER TCLASS* INDEX* ADDR* JJ 



16312000 
16313000 

START OF SEGMENT 
16314000 



T 0000 
T 0000 

T 0000 
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TCLASS * ELCLASS J 

IF STEPI * ASSIGNOR THEN BEGIN ERR(25l>; GO TO EXIT END*" 
IF TCLASS » LOCLID THEN 
BEGIN 

if siv>st£pi or elclas5>tallyv then go tu u 
index * 32 + elcla5s-siv; 
addr «• elbatci-23, address; 
go to generate* 
end; 
if tclass * stepi then 

BEGIN 

if stepi x addop or stepi* litno and elclass t loclid then 

go to l; 
index ♦ tclass-siv 

♦ real(elbatci-u,adoress«sub) x 4 

♦ REALCELCLAS5 *LQCLID) * fli 

END 



16315000 T 0000 

16316000 T 0000 

16317000 T 0003 

16118000 T 0004 

16819000 T 0004 

16320000 T 0007 

16321000 T 0009 

16B22000 T 0011 

16323000 T 0011 

16824000 T 0011 

16325000 T 0012 

16326000 T 0013 

16527000 T 0015 

16328000 T 0017 

1*329000 T 0017 

16330000 T 0020 

16331000 T 0022 



ELSE 

BEGIN 

INDEX «• TCLASS -SIV 

♦ < IF ELCLASS * LUCIID THEN 16 ELSE 

IF EUCUASS m LOCV THEN 20 ELSE 

IF ELCLASS « SCV THEN 24 ELSE 

IF ELCLASSs OCV THEN 28 ELSE 25); 
IF ELCLASS * LOCV THEN 

IF STEPI * LQCLID THEN GO TO L> 
IF ELCLASS a LITNO AND TCLASS ■ TALLYV THEN 

BEGIN EMlTCCELBATtUtAODHESS^SEOiGO TO EXIT END; 

end ; 

ADDR * ELBATCU, ADDRESSi 
GENERATE! 

IF MACRQCINDEXJ" THEN 
L» BEGIN ERRC250j;G0 TO EXIT END; 

j * a; tclass «-o ; 

Lll M0VECHARACTERS(2#MACRDCINDEX3^J«-J-2»TCLASS#6 )\ 
IF TCLASS/0 THEN 
BEGIN 

EMITCUF TCLASS*64 THEN ADDR ELSE Q#TCLASS); 
GO TO LI 

end; 

exit»end indexs ; 



HI IS 



16332000 T 


0022 


16833000 T 


0022 


16334000 T 


0023 


16335000 T 


0023 


16136000 T 


0026 


16337000 T 


0028 


16336000 T 


0030 


16339000 T 


0033 


16340000 T 


0033 


16341000 T 


0035 


16342000 T 


0037 


16343000 T 


0040 


16B44Q0Q T 


0040 


16145000 T 


0041 


16346000 T 


00*2 


16347000 T 


0043 


16346000 T 


0045 


16849000 T 


0046 


16350000 T 


0050 


16851000 T 


0050 


16152000 T 


0051 


16853000 T 


0054 


16354000 T 


0054 


16355000 T 


0054 


58 LONG* 


NEXT S£G 
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PRT(723) = DSS 



COMMENT DSS COMPILES DESTINATION STREAM STATEMENTS, 

DS* IIT»STRING« 13 HANDLEO AS A SPECIAL CASE BECAUE THE 
STRING MUST BE SCANED FRQM RIGHT TO LEFT* REPEATEDLY IF 
NECESSARY* AND EMITTED TO THE PROGRAM STREAM, IN 
ALL OTHER CASES#THE ELBAT WORD CONTAINS THE OPERATOR IN 
THE OPCODE FIELD ; 
PROCEDURE DSS; 



STACKCF+2) 
STACKCF+3) 
STACKCF+4) 
STACKCF+5) 
STACKCF+6) 



ADDR 

J 

K 

L 

T 



BEGIN 
INTEGER 



ador,s»#k,l#t; 



16356000 
16357000 

16858000 
16?59000 
16360000 
16361000 
16362000 

16363000 

16864000 

START OF SEGMENT 



0000 
0000 

oooo 

0000 

oooo 

0000 

oooo 



T 0000 
T OOOO 
********** 



112 



LABEL EXIT#Li; 

DEFINE QPCQDE*C27I6)#; 

IF STEPI * ASSIGNOP TH£N BEGIN ERRC251); GO TO EXIT END; 

IF STEPI * LOCLID THEN 

BEGIN 

EMITC (ELBATCU. ADDRESS* CRF); 

ADDR* o; 

IF STEPI * LITV THEN GO TO Li 

END 
ELSE IF ELCLASS* LITNO THEN 

BEGIN 

ADDR <• ELBATCU, ADDRESS; STEPlT ; 



16365000 


T 


OOOO 


16866000 


T 


oooo 


16367000 


T 


oooo 


16368000 


T 


0002 


16369000 


T 


0003 


16370000 


T 


0004 


16371000 


T 


0006 


16372000 


T 


0006 


16373000 


T 


0007 


16374000 


T 


0008 


16875000 


T 


0009 


16376000 


T 


ooio 



END 
ELSE ADDR * I i 

IF « "4FILL0" THEN EM ITCC ADDR' 10 ) ELSE %E 

IF ELCLASS * TRNSFER THEN EMITC C ADDR#ELBAT[ I] . UPCUDE ) 
ELSE 

IF tLCLASis » LITV THEN 
BEGIN 

EMITC(ADOR'TRP); 
IF STEPI^STRNGCON THEN 

BEGIN ERR(255)JGQ TO EXIT END) 
IF AODR MQO 2 * THEN 
BEGIN 

EMIT(ACCUM[l3.Ci8»63); J «» 1 I 
END J 
FOR K *J*2 STEP 2 UNTIL ADDR DO 
BEGIN 

FOR L »6*7 DO 

M0VECHARACTERS(UACCUMCU»2*(IF J«-U*1>CUUNT THEN J*l 
STACKCF+7) « *TEMPORARY STORAGE* 

ELSE J)#T»L )> 
EMlTCTj; 
END END 
ELSE 
Ll» ERRC250); 
EXITIEND DSS i 



16377000 
16878000 
16878500 
16379000 
16360000 
16361000 
16162000 
16963000 
1618*000 
16S84500 
16385000 
16386000 
16387000 
16388000 
16389000 
16390000 
16191000 
16392000 

16393000 
16394000 
16395000 
16396000 
16397000 
16398000 



0012 
0012 
0013 
0015 
0019 
0020 
0021 
0021 
0022 
0023 
0025 
0026 
0027 
0029 
0029 
0033 
0033 
0038 

0041 
0044 
0045 
0046 
0046 
0047 



112 IS 52 LONG* NEXT SEG 103 



PRTC724) ■ SKIPS 



STACKCF+2) * ADDR 



COMMENT SKIPS COMPILES THE SKIP BIT STATEMENT, 

IF THE REPEAT INDEX IS A LOCALID THEN A CRF IS EMITTED. 
A BSS OR BSD IS THEN EMITTED FUR SKIP SOURCE BITS (SB) 
OR SKIP DESTINATION BITS <DB) RESPECTIVELY ; 
PROCEDURE SKIPS i 



BEGIN 
REAL ADDR* 



IF 5TEPI * LOCLID THEN 

BEGIN 

EMITCIELBATCI J, AODRESS* CRF >; ADDR*©* 5TEPIT; 

END 
ELSE IF ELCLASS * LlTNO THEN 

BEGIN 

ADDR* ELBATCI3, ADDRESS; STEPIT 

END 
ELSE ADDR ♦ 1 i 

IF ELCLASS *SBV THEN EMITC ( ADOR#BSS ) 
ELSE 

IF ELCLASS »D8V THEN EMITCC ADDR#BSD J 
ELSE ERR(250)J 
END SKIPS ; 



START 



16399000 


T 


0000 


16400000 


T 


0000 


16401000 


T 


0000 


16402000 


T 


oooo 


16403000 


T 


0000 


16404000 


T 


oooo 


16405000 


T 


oooo 


OF SEGMENT 


********** 


16406000 


T 


oooo 


16407000 


T 


0001 


16408000 


T 


0001 


16409000 


T 


0004 


16410000 


T 


0004 


16411000 


T 


0005 


16412000 


T 


0006 


16413000 


T 


0007 


16414000 


T 


0008 


16415000 


T 


0009 


16416000 


T 


0011 


16417000 


T 


0011 


16418000 


T 


0014 


16419000 


T 


0015 
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113 IS 18 LONG* NEXT $EG 103 



PRTC725) * JUMPS 



COMMENT JUMPS COMPILES JUMP OUT AND JUMP OUT TO STATEMENTS, 

JUMP OUT TO STATEMENTS CAOSE JUMP LEVEL TO BE SET T 
THE NUMBER OF LEVELS SPECIFIED. THEN THIS NUMBER OF 
JNS ARE EMITTED ANO GOTOS IS CALLED TO COMPILE THE 
JUMP INSTRUCTION. 

SIMPLE JUMP OUTS ARE HANDLED BY EMITTING ONE JN5»£N 
A PSEUDO STLABID IN INFO AND SETTING ELBATCI] SUCH 
THE GOTOS PROCEDURE WILL PERFORM THE ACTION OF SETT 
UP THE LINKS FOR LATER FIX UPS. THE NEST STATEMENT 
THESE FIX UPSCIF EMITTING OF JUMP INSTRUCTIONS) BY 
GO TOS WHEN THE RIGHT PAREN IS ENCOUNTERED. ) 
PROCEDURE jumps; 



BEGIN 
JUMPLEVELMJ 

IF STEPI*OECLARATQRS 



THEN 



COMMENT 



IF STEPI = LITNO THEN 
ELSE BEGIN 

IF ELCLASS* 
BEGIN 

SIMPLE JUMP 
IF JOINFO • 
BEGIN 
JOINFO 



IF ACCUMC1]#"30UT00" 
FLAG(261); 
JUMPLEVEL* ElBATCn.AODHESS 



TQV AND ELCLASSX STLABID THEN 



THEN 



out statement; 

THEN 



* NEXTINFO ; 
PUTNBUMP(STACKHEAD[Q].LINK4CSTLABlDx2+n 

C2t40l8J&2C27t40*8 })} 
PUTNBUMPCQ&CJOINFO-LASTINFO ){ 4140183); 
HUTN8UMP (0); 
LASTINFO * JOiNFO; 

end; 

ELBATCI* WJ» TAKE(J0INF0)4jOlNFOt35l35Jl3j; 

end; j «- i- i ; 



END' 

FOR GT1«- 1 
EMITC 
GOTOS; 

END jumps; 



STEP 1 

jns); 



UNTIL JUMPLEVEL DO 





16420000 


r oooo 





16421000 


r oooo 




16422000 


r oooo 




16423000 ' 


r oooo 




16424000 ' 


r oooo 


TERING 


16425000 ' 


r oooo 


THAT 


16426000 ' 


r oooo 


ING 


16427000 ' 


r oooo 


CAUSES 


16428000 * 


r oooo 


CALLING 


16429000 1 


r oooo 




16430000 1 


r oooo 




16431000 1 


r oooo 




16432000 1 


r oooo 




16433000 1 


r oooo 




16434000 1 


r oooi 




16434100 1 


r 0004 




16435000 1 


r 0005 




16436000 1 


r 0007 




16437000 1 


' 0010 




16438000 1 


r 0011 




16439000 1 


• 0012 




16440000 1 


r 0012 




16441000 1 


0013 




16442000 1 


r ooi3 




16443000 1 


• 0014 




16444000 1 


r 0016 




16445000 1 


' 0018 




16446000 1 


' 0021 




16447000 1 


■ 0021 




16448000 1 


• 0022 




16449000 1 


0022 




16450000 1 


0026 




16451000 1 


' 0027 




16452000 1 


0027 




16453000 T 


0029 




16454000 T 


0032 




16455000 T 


0032 



COMMENT STREAMSTMT ENvQKES THE APPROPRIATE PROCEDURE TO HANDLE 
THE VARIOUS AND SUNDRY STREAM PROCEDURE STATEMENTS. 
THE STATEMENTS ARE BROKEN DOWN AS FOLLOWS! 



IDENTIFIED BY 

END 

SEMICOLON 

) 

IF 

GO 

RELEASE 
BEGIN 

SI,DI>CI*TALLY#LQCALIQ 

OS 

SKIP 

JUMP 



PROCEDURE ENVOKEO 
GO TO FINI 
FINI 
FINI 



GO TO 
GO TO 
IFS 
GOTOS 
RELEASES 
COMPOUNOTAIL 
INDEXS 
DSS 
SKIPS 
JUMPS 



16456000 
16457000 
16458000 
16459000 
16460000 
16461000 
16462000 
16463000 
16464000 
16465000 
16466000 
16467000 
16468000 
16469000 
16470000 



0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 



LABELID LABELS 

LITERAL NQ,*LQCALI0< NESTS 
UPON EXITING#STREAMSTMT ASSURES THAT "I" POINTS TO 
THE SEMICOLON *END OR ) IN SYNTACICALLY CORRECT PROGRAMS; 

LABEL L*L1*L2*L3»L4*L5*L6*L7*l8*L9*L10*EXIT*FINI*START; 

SWITCH TYPE * FINI*L*FINI*l3*L4*L5*L6*|_7*L7*L7*L7*l8*L9*LIQ; 



L5J 



STARTI 



IF 
IF 
IF 

lh 

L2* 
L3» 
L«* 

L6I 
L7J 
L 8l 
L9I 
LIOI 

EXIT! 

FINI* 



GO TO TYPEC ELCLASS-ENDV+i]; 

IF ELCLASS* RTPAREN THEN GO TO FINI 

IF ELCLASS- STLABID THEN GO TO L2 ; 



; 



ELCLASS <IOMAX AND ELCLASS*LOCLlD THEN BEGIN 

declakelabel; go to L2; end; 

ELCLASS « LITNO OR ELCLASS s LOCLID AND TABlECI*!) 

a LFTPAREN THEN GO TO l\i 
ELCLASS m LOCLID THEN GO TO L7; 
ERRC 250 ); GO TO FINJ ; 



nests; 
labels; 
ifs; 
gqtos; 



GO 
GO 
GO 
GO 



TO 
TO 
TO 
TO 



exit; 
start; 
fini; 
exit; 



i*i+i ; 

inoexs; 

oss; 

skips; 

jumps; 

stepit; 

end streamstmt; 



compoundtail; 

go to exit; 

to exit; 

to exit; 

to exit; 



GO 
GO 
GO 



GO TO FINI; 



103 IS 



16471000 

16472000 

16473000 

16474000 
16475000 

16476000 
16477000 
16478000 
16481000 
16462000 
16462100 
16482200 
16482300 
16482400 
16462500 
16483000 
16484000 
16485000 
16466000 
16487000 
16488000 
16489000 

16490000 
16491000 
16492000 
16493000 
16494000 
16495000 
74 LONG, 



0032 

0032 
0032 

0032 
0032 

0032 
0043 
0047 
0046 
0049 
0049 
0051 
0052 
0055 
0057 
0058 
0060 
0062 
0063 
0064 

0065 
0065 

0067 
0069 
0070 
0071 
0072 
0072 
NEXT SEG 



PRTC726) 



PRTC527) 

PRTC526) 

PRTC343) 

PRTC5) * 

PRTC530) 

PRTC373) 

PRTC14) 

PRTC15) 

PRTC16) 

PRTC4U) 

PRTC201) 



MOVECl»I'C0DE(0)j; 

timei ♦ TiMEU); program; 

ENDOFITaLLIEND MAIN BLOCK 
END, 
•SEGMENT DESCRIPTOR* 



114, 
115. 



* EXP INTRINSIC* SEGMENT NUMBER « 

* LN INTRINSIC* SEGMENT NUMBER * 

* OUTPUTCM) INTRINSIC* SEGMENT NUMBER « 
BLOCK CONTROL INTRINSIC* SEGMENT NUMBER 

* X TO THE I INTRINSIC* SEGMENT NUMBER • 



3 
2 



IS 
IS 



* GO TO SOLVER INTRINSIC* SEGMENT NUMBER 

* ALGOL WRITE INTRINSIC* SEGMENT NUMBER ' 

■ ALGOL READ INTRINSIC* SEGMENT NUMBEK . 

ALGOL SELECT INTRINSIC* SEGMENT NUMBER ' 



116, 
* 117, 
" 118, 



DYNAMIC DIALS 
FILE ATTRBUTS 



INTRINSIC* 
INTRINSIC* 



SEGMENT 
SEGMENT 



NUMBER 
NUMBER 



119. 

120« 
121. 
122. 
123, 
124, 



NUMBER OF ERRORS DETECTED * 
PRT SIZE * 47i; TOTAL SEGMENT 



0. COMPILATION TIME * 
SIZE » 7276 WORDS; DISK 



1 

125 



IS 

IS 



816 SECONDS, 
SIZE ■ 360 SEGS; NO. PGM, SEGS = 125 



ESTIMATED CORE STORAGE REQUIRED » 13928 WQRDS, 



16495100 

16495200 
16495210 
16495300 



604 
41 



LONG* 
LONG, 



2 
69 



LONG* 
LONG* 



0594 

0599 
0600 
0601 

NEXT 
NEXT 



SEG 
SEG 



NEXT 
NEXT 



SEG 

SEG 



2 

1 








ESTIMATED AUXILIARY MEMORY REQUIRED • WORDSt 
NUMBER OF CARD-IMAGES PROCESSED ■ 6918. 



(5. ■ 



A 

0003 *02062500* 

02063500 



A 

0003 *Q2054000* 

02055000 

A 

0003 *02022000* 

02023000 

A 

0003 *03050000* 



A 

0003 *043U000* 



043U050 04311060 04315000 *043l5000* 



A 

0003 *03049000* 



A 

0003 *03047100* 



A 

0003 *04500000* 



04529000 04534000 04542000 04548000 04550000 04551000 04556000 



A 

0012 *02264100* 



02265100 02265150 02265250 02265300 02265600 02265650 02265700 02265750 02265850 02265900 022659go 
02266000 



A 

0036 *05130000* 



*Q5131000* 05132000 



A 

0035 *05065000* 

05065000 05066000 

A 

0041 *05334100* 

05334100 0541UO0 

A 

0043 *054l5000* 

05417000 05419000 05421000 05422000 

A 

0043 *05413000* 

05426000 0542^000 05431000 05432000 

A 

0065 *08015000* 

08181000 08188000 

A 

0065 *08027000* 

♦080 35000**080 37000* 



A 

0065 *08020000* 

08021000 

A 

0089 *13359000* 

*13364000* 13365000 13366000 



A 

0092 *13673100* 

13673100 



ABi> 

0035 *05065000* 



05066000 05092000 



ACC 

0063 *07653500* 



07654500 08027000 06083000 08084000 



ACCUM 
0003 



•01304000* 

02128500 
O2581OOO 
02700000 
070862°0 
12119000 
14259000 



02251000 
02590000 
2 705000 
O7O863OO 
12120000 
14259080 



02255000 
02592000 
02754000 
07668500 
12122000 
14440000 



02259000 
O26O26OO 
O2822OOO 
07670000 
13281000 
14441000 



02278000 
02647000 
O2846OOO 
07671000 
13282000 
16000700 



02280000 
02650000 
02865000 
10264700 
13307000 
162U000 



02327000 
02652000 
02881000 
10264900 
13308000 
16387000 



02366^0 
02686000 
02958500 
10269000 
13309000 
16392000 



02371000 
02686500 
05043000 
10274000 
13310000 
1643«000 



02499000 
02696000 
05044000 

12117000 
13372000 



02502000 
02698000 
05325460 
12U8000 
13755000 



ACCUM 

0003 *02041000* 

02043000 



ACClJM 

0007 *02089500* 

02122500 

ACCUM 

0034 *05016000* 

05028000 



ACCUM 

0054 *07038100* 



07038500 07536000 07537000 



ACCUM 

0083 *10236000* 

10239000 



ACL.ASS 

0054 *07038000* 



•07041000* 07047000 07057000 07069000 *07Q81000* 07089000 



ACTUAlPARAPART 
0003 *07035000* 



07410000 07438000 



ADU 

0003 *01633000* 



05226000 07525000 08126000 08214000 13221000 



ADU 

0087 *132210Q0* 



*13248000* 13250000 13252000 13252500 *13259000* 



ADOC 

0003 M3212000* 



ADDITIONAL 

0062 *Q7595000* 



07601000 07603000 07610000 



AODOP 

0103 *16005000* 

16326000 



ADDR 

0105 *16068000* 



ADDR 

0109 *16195000* 

♦16196000** 1620 1000**16204000* 16208000 

ADDR 

0113 *16485000* 

*16408000**16412000*#16414000* 16415000 16417000 
ADDR 



°112 *16364000* 

* 16 37 1000**1 6 376000**16 376000* 16 378 500 



16379000 16383000 16385000 16389000 



ADDR 

0111 *16314000* 



*16321000**16344Q00* 16352000 



ADORES 

0065 *08010000* 



♦08055000* 08067000 08068000 08075000 0817900Q 08212000 



ADDRESS 

0003 *01152000* 

♦02850000* 02896000 

05344615 05344620 

06326000 07071000 

08044000 08055000 

13394000 14085000 

15097000 I5l06i00 

15276080 15290000 

16200000 16204000 



02900000 
05344660 
07090000 
10277000 

* l f * if 22S* 

15107000 
15302000 
16321000 



02923000 
05344700 
07393000 
12015000 
14129000 
15110200 
15310000 
16329000 



O45O8OOO 

05344710 
07439000 
12024000 
14349000 
15110300 
l5344i00 
16342000 



05131000 

06016000 
07745000 
12036000 
14399000 
15233010 
15344200 
16344000 



05217000 

06072000 
07768i00 
12047000 
14430000 
P233011 
15351200 
16370000 



05233000 
06108000 
07994000 
12108000 
14437000 
15233014 
15352000 
16376000 



05280000 

06185000 
07995000 
13205000 
14461200 
15267000 
15353000 
16408000 



05281000 

06324000 
08021000 
13248000 
14483200 
15276010 
16121000 
16412000 



05344570 
06325000 
08029000 
13259000 
15094000 
15276060 
16124000 
16435000 



AOORESS 

0003 *04022000* 



04023000 04024000 



AOORESS 

0003 *04017000* 



04018000 04019000 



AOORESS 

0003 *04030000* 



04032000 04033000 



ADDRESS 

0003 *05199000* 

05201000 



ADDRESS 

0055 *07393000* 



*073«7000* 07397400 07397500 07413000 



ADDRSF 

0003 *Q1604000* 



07397000 07677000 *1 3205000**1 3344000** 13346000**1 3347000* 13348000 13373000 M3767000* 13767000 13768000 
13770000 14313000 14320000 M6QQ0500* 



ADOVALUE 

0003 *01000860* 



02193000 *02592Q00**09028920* 



AD6S 

0003 *01299010* 



ADJUST 

0003 *04083000* 



04087000 04144000 04172000 06208500 07080000 07459000 07579000 07585i00 07586000 07600200 0/607100 
07727040 08190000 13605000 13611000 13630000 16023100 



ADJUST 

0103 *16023100* 



16137000 16158000 



ADOP 

0003 *01278000* 



05344550 05344670 06013000 07666000 08029000 08031000 12013000 12022000 16005000 16326000 



ADR 

0091 *13633000* 



13633000 13642000 13657000 



ADRES 

0037 *05215000* 



*052l7000* 05219000 *052l9000* 05226000 05227000 



AEXP 

0003 *03001000* 



03006000 *06002000* 06007000 06057000 06105000 06174000 06202000 06305000 064i0000 06416000 06422000 



07045000 07062000 07086000 07487000 07493000 08101000 08123000 08131000 08135000 08142000 12046000 
12051000 12054000 13759000 15099000 15233012 15276070 15277000 15307000 



AGAIN 

0016 *02360000* 



*02372000* 02377000 02390000 02393000 02395000 02397000 02404000 02418000 02421100 02431000 02460000 
02470000 02472000 02474000 02480000 02493000 024V6Q00 02501000 02506000 02508000 02513000 02516000 
02520000 02522000 02564000 02567000 02601000 



AGAIN 

0044 *05439000* 



*05445000* 05454000 05457000 



AGAIN 

0064 *07726000* 



*07727000* 07727100 07741000 



AGIN 

0003 *02001860* 



02001880 O2OO1886 



AJUMP 

0003 *01596000* 



13603000 *136l4000* 13626000 M3&29000* 14054000 *14055000**14606000* 



AJUMPO 

0094 *14034000* 



♦14054000* 1460*000 



AKKUM 

0003 *01693000* 



ALFAARRAYID 

0003 *012Q4000* 



AtFAIO 

0003 *01200000* 

14139000 



AlFAPROClD 

0003 *0U96000* 



ALFASTRPROCIO 

0003 *0U92000* 



ALFAV 

0003 *01284000* 



ALL 

0065 *08052000* 



08054000 08055000 O8O56OOO O8O57OOO 



ALLTHU 

0028 *04168000* 



04176000 *04186000* 



ALONG 

0017 *02325000* 



02336000 02340000 02354000 *02358000* 



ALPHADEC 

0094 *14013000* 



14018000 *14139000* 



ALPHASIZE 

0003 *01707000* 



ALPHAWORDS 

0012 *02264700* 



02264900 02265600 02265850 
AMPERSAND 



0003 *01266500* 

06034000 06180000 07084000 15110200 15349000 

ANDQP 

0003 *01276000* 

02964500 02971000 02983500 



ANOTHER 

0053 *07007Q00* 

#07009000* 07012000 07015000 07024000 



ANOTHER 

0054 *Q7037O00* 



•07041000* 07095000 



ARGH 

0021 *02638000* 



#02649000* 02685000 02718000 02753000 02899000 



AR1THC0MP 

0003 *03004000* 



06036000 *06041000* 06052000 06055000 



ARHHSEC 

0003 *03002000* 



06006000 *060ll000* 06023000 



ARRAE 

0003 *13376000* 



13410000 14156000 



ARRAYDEC 

0094 *14015000* 



14020000 M4156000* 



ARRAYMONFILE 

0003 *01526000* 



ARHAYV 

0003 *01294000* 

14161000 



ASKIP 

0083 *10236000* 



10237000 10239000 



ASbJGNOP 

0003 *01273000* 



06199000 07397 2 i0 07a0l000 07662000 08i78000 08229000 12O28OOO 13758000 15090000 15H3000 15233006 
15233026 15276050 I5276i60 15300000 15342000 16316000 16367000 



ASTOQ 

0003 *01300100* 



05348000 07600^10 #07600430* 



ASTRISK 

0003 *01212200* 



01299100 07600400 13400000 13404000 15253000 



ATSIQN 

0021 *02637000* 



02641000 *02683000* 



ATYPE 

0003 *01452000* 



01452000 06005000 06057000 



AWAY 

0008 *02191000* 



02191250 02194250 02195250 *02196250* 



AXNUM 

0003 *07034000* 



07086700 *07086700* 09384000 09384100 



0003 *Q2054000* 
02055000 

B 

0003 *01717000* 



B 

0003 *02062500* 

02063500 

B 

0003 *04247000* 

04248000 

B 

0003 *02980000* 

02983500 *02983500* 02984000 02984500 

B 

0003 *03047t00* 

B 

0003 *043UOOO* 

04311070 04311080 04317000 *043l7000* 

B 

0003 *04500000* 

04526100 0^528000 04542000 04544000 O4548OOO 04551000 04556000 

B 

0003 *02955500* 



B 

0003 *03041000* 



B 

0003 *03050000* 



B 

0017 *02323000* 

*02343000* 02352000 02353000 *02356000* 02357QOQ 

B 

0024 *02973500* 

*02976000**02978000**02978500* 02978500 Qg979000 

B 

0023 *Q2970000* 

♦02970500* 02971000 02971500 



B 

0033 *04505000* 

04507000 



B 

0065 *08027000* 

♦080 35000**080 37000* 



B 

0065 *08010000* 



08044000 OaO«7oOO 08089000 08U2000 08116000 *08122000**08169000* 08183000 08199000 *08209000* 08213000 



B 

0077 *09393240* 



09393300 09393310 09393330 09393350 09393370 *09393370* 09393400 *09393410* 09393410 09393430 *09393440* 
09393440 



BACK 

0058 *07491000* 



*07493000* 07495Q00 



BACK 

0066 *08084000* 

08089000 



BACK 

0082 *10259000* 



*10263300* 10276500 10278000 10279000 



BACKFIX 

0066 *08091000* 



*08097000**08099000**08l06000* 08127000 *08 146000**08 147000* 08137000 08168000 08171000 



BAL 

0003 *03046000* 



*07458000**07459000* 07459000 



SANA 

0003 *03048000* 



05225000 *064i9Q00* 06423000 07523000 



BASE 

0076 *09370000* 



09371000 09374000 



BASENUM 

0003 *01000860* 



02192500 *02581000**09028920* 



BATMAN 

0003 *01001600* 



*0296i500* 02966500 #02967000* 02968000 02978000 



BBC 

0003 *016340Q0* 



07487000 08221000 



8BW 

0003 *01635000* 



06207000 07444000 07495000 08047000 08078000 08166000 08168000 



BEGINCTR 

0003 *0H99000* 



07008000 *07008o00**0702i000* 07021000 07023000 *07024000** 14035000* 14035000 *l45i0000* 14510000 *14520000* 
14520000 



BEGINV 

0003 *01234000* 



05108000 09252000 13771000 14393000 14479000 



BETA1 

0090 *13379000* 



*13390000* 13409000 



BEXp 

0003 *03006000* 



06410000 07487000 07493000 08135000 Q8142Q0Q 



Brc 

0003 *01636000* 



06301000 07496000 07572000 07573000 07575000 07579000 07583000 07585i00 08151000 



BFW 

0003 *01637000* 



0«2i8000 06307000 07088000 07512000 07516400 07518000 07526000 07529000 07572000 07586000 08125000 
08127000 08146000 O8148OOO 082i5000 08228000 13263000 13274000 ^606000 14O41OOO 14451000 



BIT 

0003 *02307000* 

02311000 



BIT 

0103 *16015000* 

16216000 

BITEDUST 

0035 *05067000* 



05087000 O5O88OOO 05089000 05090000 



BITOP 

0003 *01269000* 

06087000 



BLANKET 

0003 *0U37350* 



01737500 02265i00 02265250 02265600 02265700 02265850 Q226595U 0532^450 09034500 



BIKAD 

0094 *1«026000* 



*14037000*M4044000* 14600000 



BLOCK 

0003 *03067000* 



07750000 07768200 *H00l000* 14482000 14613000 16495210 



BLUCKCTR 

0003 *01430000* 



BN5 

0103 *16011000* 



16122000 16124000 



BN^FIX 

0107 *16118000* 



•16121000* 16141000 



BOOARRAYID 

0003 *01202000* 



BOOID 

0003 *0tl98000* 



02967000 02977500 07047000 08057000 08058000 12042000 14140000 



BOOLCOMP 

0003 *02955500* 



02971000 *02980Q00* 02983000 02985Q00 



BOULEANOEC 

0094 *MOi3000* 



14018000 *14140000* 



BOUIEXP 

0003 #02065600* 



02343000 *02969000**0297l500* 02*72000 02976000 



BOOLPRIM 

0003 *02955000* 



02970500 *02972500**02979000* 02979500 02982500 



BOUPROCIO 

0003 *01194000* 

14294000 



BOUSTRPROCIO 

0003 *Q1190000* 

14285000 



BOOV 

0003 *01282000* 



BOTTOM 

0044 *05439000* 



05446000 05451000 *05455000* 



BRANCH 

0003 *04H6000* 



*04120400* 04120400 04122000 



BRANCH 

0003 *03037O00* 



8RANCHTYPE 



0003 *03025000* 



BRANCHTYPE 

0003 *Q7537000* 



07540000 07544000 



BR&T 

0065 *080H000* 



08016000 *08033000* 08033000 08034000 08035000 08046000 08094000 *08 124000**08180000**06223000**08232000* 



BRNCH 

0066 *08092000* 



08148000 *08152000* 



BSD 

0103 *16021000* 

16417000 



BSS 

0103 *16020000* 

16415000 

BTYPE 

0003 *01452000* 



BUG 

0004 *01802000* 



04279000 04282500 



BUILDUINE 

0002 *00504700* 



*02526000* 02526000 



BUMPL 

0003 *01477000* 



04216000 06207000 06297000 06300000 07444000 07459000 07487000 07493000 07495000 07540000 07577000 



07585000 08047000 08078000 08106000 06146000 08168000 06190000 08221000 13628000 14039000 



BUP 

0003 *01695000* 



• 13333000* 13333000 14073000 *14079000 ** 14083000* 14084000 14088000 *14088000* 14088000 14116000 14118000 
*14U8000* 14118000 * 14364000** 14369000* 



B2D 

0003 *01717000* 



04149000 *04247000**0424800Q* 04279000 04281500 04282000 04262500 04285000 04285500 05376j00 09434000 
09447080 



C 

0003 *01562000* 



*02682000* O2686OOO *0270l000* 02705000 *02758000* 02789000 *02/89000**0280 1000**02803000* 02803000 028H000 

*028ll000* 02827000 *02842000* 02842000 02849000 02850000 *02923000* 06087000 06090000 06093000 06099100 
06099200 06168000 07600300 07604120 07667000 *07667000* 07669000 07727050 08035000 16212500 



C 

0003 *03047100* 



C 

0003 *04203000* 

04205000 04209000 04211000 *042l6000* 04218000 

C 

0046 *06064000* 

06064000 06066000 06194000 07035000 07Q|60QO 

C 

0041 *05334100* 

05334100 05334500 05400000 05411100 

C 

0065 *08020000* 

08021000 



C 

0092 *13673100* 



13673100 13673350 



CALL 

0003 #01721000* 



QSAOg^O 05405000 05^07000 05409000 054g8000 05430000 073*7400 07397500 08072000 14403400 



CALL 

0065 *06072000* 



08079000 08098000 08j08000 08130000 06217000 



CALLA 

0003 *01720000* 



0J721O00 05402i00 05405000 05407000 05409000 05428000 O543OOOO 07397400 07397500 144834OO 



CALLINFO 

0003 #01722000* 



O73973OO M448H00* 14483300 14483*00 



callstatement 

0094 #14017000* 



14132000 14137300 *145Q500Q* 



CALLSWITCH 

0003 *05315000* 



05316000 13263000 



CALLX 

0003 #01722000* 



07397300 #07397500* 07397500 1448H00 #14481100* 14403500 



CALL1? 

0003 #01721000* 



05402100 05405000 05407000 05409000 05428000 05430000 0097400 07397500 14483400 



CARD 

0003 #01557000* 

°2213?50 02215500 0221*250 09281&00 
CARQ 



0003 *02188000* 

02188000 02188500 02202750 

CAKDCOUNT 

0002 *00504150* 

02234500 *02234500* 

CAKOLAST 

0009 *02210000* 

02210750 *02216000* 



CARDNUMBER 

0002 *00504100* 

*02228000* 



CARDONLY 

0009 *02210000* 



02210750 *02215250* 



CAKOOPTIQN 

0016 *02363000* 

*02429000* 02436000 

CBUFF 

0003 *01561056* 

02213750 02214000 02215500 02215750 02216250 02216500 07025010 0702*000 

CD 

0063 *07653500* 

07654500 07655000 08083000 08084000 

COC 

0003 *01638000* 

15302000 15356000 

CELL 

0040 *05325040* 



05325050 05325130 05325150 05325180 05325220 05325330 05325350 05325360 05325380 05325390 05325400 



05325410 05325420 



CHANGESEO 

0003 *01741200* 



01741300 02193250 



CHAR 

0003 *01299040* 

14461100 



CHAR 

0082 *10234000* 



10242000 10252000 10255000 



CHARCOUNT 

0082 *10230000* 



10242000 10250000 10251000 10256000 * 10256000**10261000* 10285000 



CHECKBIT 

0003 *01000920* 



01001210 02496000 



CHECKER 

0003 *05113000* 



05120000 0521*000 07070500 07398000 08054000 12044000 15085000 



CHECKTOG 

0003 *01001210* 



CHKSOB 

0003 *13209000* 

14289000 



CHS 

0003 *01639000* 

06021000 08189000 08219000 
CIV 



0003 #01238000* 



CLASS 

0003 *01148000* 



*02705l00**02850000**0285i000* 02886000 02920000 02924000 *02966500* 02968000 04509000 05350120 07044000 

08057000 12120000 12125000 13201000 13226000 13677200 14062000 14091000 14425000 l45l9000 15086000 
15102000 15l28i00 15233009 15276020 15276090 l5295i00 15303000 15333000 15344000 l535l000 



CLCR 

0003 *01330000* 



*022l6500**022l7750* 02218000 02218250 02224500 



ClCR 

0009 *02202750* 



02203500 02209000 



CNT 

0003 *Q20Q1838* 



0g00l838 02001844 



CNT 

0003 *02001858* 



02001858 02001866 02001870 02001892 



coc 

0003 *01640000* 



15095000 15290000 15344000 15355000 



COCT 

0063 *07653500* 



07656500 07657000 07671000 



CODE 

0003 *01556900* 



04147 00 04296o00 05312000 0^62000 07668500 07669QQ0 07671500 08999200 08999575 08999700 0«393350 
09393400 09393430 09400000 09401000 13651000 13746000 16495100 



CODE 



0003 *0n30000* 

04130000 04134000 04231000 

COUISK 

0003 *01561300* 

08999150 08999^5 089992713 08999300 08999350 08999375 OB9V9550 08999575 08999600 08999700 08999725 
09398000 

COL 

0041 *05344000* 



COLON 

0003 *01260000* 

02637000 05276 00 063i8Q00 06320000 075^7500 076Q0100 07600600 07604Q20 07727010 07727030 07727o7o 
13753100 13756000 13760000 16160000 

COLON 

0021 *02637000* 

02641000 *02663oOO* 

COM 

0003 *01641000* 



COMCOUNT 

0007 *02089500* 

02090500 O2HI5OO 02118000 

COMMA 

0003 *01261000* 

06H4000 07067000 07095000 07604i40 07673000 08145000 08i50000 08i53000 10263700 10282000 120i0000 

12020000 12033000 12052000 12056000 12125000 13351000 13403000 13409000 13756000 13762000 H197000 
14223000 14259^0 14268000 14356000 14404000 15287000 15293000 

COMMANTS 

0007 *02092000* 

02097500 02105000 
COMMENTS 



0007 #02092000* 

02106500 02107500 02108000 

COMMENTV 

0003 *01253000* 

02886000 02920000 08034000 

COMMON 

0054 *07037000* 

07045000 07054000 07058000 07064000 07074000 07076000 O7O84OOO *07094000* 

COMPAR 

0009 *02210500* 



02216750 02218500 *02224250* 



COMPARE 

0003 *02188000* 



02190000 02t90 2 50 02203500 O2226OOO 02228150 02232000 02233500 024HQQ0 02486000 



CQMPARECQQE 

0109 *16192000* 

16208000 



COMPLETE 

0021 #02637000* 



02658000 02667000 02680000 02705200 027i5000 02757000 02852000 02877000 02877020 02893000 02894000 
#02909000* 



COMPOST 

0021 #02639000* 



02880000 *02882000# 



COMPOUNOTAIL 

0003 #07006000* 



07033000 07768i40 07768200 13772000 14412000 14512000 14*24000 16489000 



CONSTANA 

0065 *O801300O* 



08015000 08074000 08099000 08181000 08188000 #08211000**08224000**08227000* 



CONSTANB 

0065 *08013000* 



08043000 08H2000 08H600Q *08121000* 08183000 08194000 *06205000* 08213000 



CONSTANC 

0065 *08013000* 



08185000 08195000 *082Q4000* 08218000 



CONSTANTCLEAN 

0003 *O3034OO0* 



*04i63000* 04217000 07459000 07496000 075i9000 07585000 08l70000 08i90000 13744000 14O4OOOO HI685OO 
14604000 



CQNV 

0003 *02041000* 



02043000 02228000 02251000 02255000 02259000 02502000 UglseiOOQ 02592000 



CONVERT 

0003 *02248000* 



*02260000* 02758000 02796000 02803000 02823000 



CDP 

0003 *01371000* 



02550000 04280000 04283500 



COHADR 

0003 *01344000* 



05248500 05250000 *05250000* 09282600 09388000 13653000 



CORE 

0076 *09370000* 

09371000 09375000 09393240 

CORNER 

0003 *02011000* 

02011000 02012000 
COUNT 



0003 *01313000* 

02128500 02129000 02251000 

*02602700**02647000* 02685000 

02705000 02790000 02796000 

05325070 ©6062000 07668000 



02252000 02278000 #02327000* 02366200 #02371000* 02373000 *02499000**02590000 * 
02686000 *0269l000* 02695000 *O269800Q* 02698000 02699000 #02699000* 02703000 
02798000 02803000 02810000 02817000 02880000 02881000 *02889000**02958500 * 
0/670000 07671000 10241000 12109000 *12121000* 13302000 1425901Q 16392000 



COUNT 

0003 *Q206250Q* 



02062500 02064000 



COUNT 

0007 *Q2090000* 

02121500 



COUNT 

003A #05016000* 



05017000 05028000 



COUNT 

0035 #05067000* 



05067000 05071000 05077000 O5O8OOOO 



COUNT 

0046 *06062000* 



06074000 06075000 *06075000* 06103000 06112000 #06112000* 06H9000 #06119000* 06120000 06121000 06122000 



COUNT 

0040 #05325070* 



05325150 05325i60 05325210 05325320 05325330 



COUNT 

0083 *10241000* 



#10242000* 10245000 *l0247000* 10247000 10249000 10252000 10255000 10256000 



COUNT 

0083 #10236000* 



10237000 10240000 



COUNTV 

0007 *02089500* 



02090500 02121000 02123500 



CPtUSl 

0003 *01713000* 



CPUUS2 

0003 +01714000* 



CRtL 

0028 #04167000* 



♦04173000**04183000* 04187000 



CRF" 

0103 *160100Q0* 



16121000 16200000 16370000 16408000 

CROSSHATCH 

0003 *01262000* 

02640000 10279000 

CROSSHATCH 

0021 *02640000* 

02642000 *027l4000* 

D 

0003 *02001858* 

02001890 02001895 02001896 



0003 *02001838* 

02001842 02001848 02001850 

D 

0003 *03047100* 



D 

0012 *02264400* 

0226^500 

D 

0012 *02264700* 

02264800 

D 

0028 *0<U66000* 



•04175000* 04184000 



D 

0063 *07658500* 

07659500 07660000 08020000 08027000 08052000 08063000 06072000 08080000 06083000 06084000 

D 

0082 M0257100* 

10257200 12101000 

D 

0085 *12103000* 

12104000 

D 

0098 *14254200* 

14254300 



0105 *16067000* 

*16070000* 16079000 

D 

0104 *16031000* 

*16032000* 16032000 
DA 



0003 *Q1559020* 



DATE 

0005 *0J823000* 



01823000 01825000 



DATER 

0005 *01823000* 



01825000 0J827000 01833000 



OATIME 

0003 *01820000* 



0i837000 2 l83000 2l 95000 2l 95750 022^200 2 228750 2 264950 02<»2lOOO 05039600 05325490 070 2 50 2 
13653500 13676000 



DBLSTMT 

0003 *03060000* 



07753000 *12002000* 12059000 



DBV 

0003 *0l243000* 

16417000 



OClNTYPE 

0003 *0156H20* 

09430060 

DCV 

0003 *01248000* 



16208000 16338000 



DDES 

0003 *0i299000* 

07677000 



DEBUNK 

0007 *02091500* 



02094500 02100000 



DEBUG 

0Q03 *04277500* 



04286000 04297000 



DEBUGBIT 

0003 *01000930* 



01001220 02531000 02533000 OJ602500 04148000 042*7000 



DEBUGTOG 

0003 *01001220* 



02533000 O26O25OO 04148000 04297000 



OEBUGWORD 

0003 *04130000* 

04149000 



DECK 

0003 *01561500* 



09435000 09447000 09447090 



OECKBIT 

0003 *01000940* 



01001230 02474000 09405000 094i40l0 09421000 09447010 13651100 



DECKTOG 

0003 *01001230* 



09405000 09414010 09421000 09<U70lO 1365U00 



DECLARATORS 

0003 *01214000* 

07767000 10277Q00 14126000 14370000 14396000 14516000 16434000 

declarelabel 

0003 *J6000100* 

16253100 16482200 

DECLSW 



0094 *1401B000* 
H134000 

DEFInEARRAY 

0003 *Q1491000* 



02202030 02202040 Q220205Q 02202060 02212500 02217250 02217500 02217750 02218000 02366100 02602600 
02719000 02721000 02900000 02902000 02903000 



OEFINECTR 

0003 *01481000* 



02715000 M026200Q* 10278000 *10278000* 10280000 10283000 *l0283000**i0284000* 



OEFINEDEC 

0094 *14017000* 



14021000 *14254000* 



DEFINEDIO 

0003 *0U80000* 



02894000 12120000 14259010 



DEFINEGEN 

0003 *10228000* 



10286000 12124000 14266000 



DEFINEINDEX 

0003 *01481000* 



02212500 02718000 027i9000 *0272l000* 02721000 02898000 02900000 02902000 02903000 *02?05000* 0*905000 



DEFINEV 

0003 *01298000* 

10278000 

OEL 

0003 *01642000* 



DEPTH 

0003 *05400000* 



♦05402100**05403000* 05407000 *054Q9Q00* 05426000 05431000 



DEt»C 

0065 *08016000* 



080*8000 08108000 



DEST 

0003 *02045000* 

02046000 



OIA 

0003 *Q1680000* 



04315000 04550000 



DIAUA 

0003 *01502000* 



*04 3 1 5000**08 J 52000* 



DIALB 

0003 *0l502000* 



*04 3 17000**08 152000* 



DIB 

0003 *01681000* 

04317000 



DIG 

0003 *O1237000* 



DI*K 

0003 *01561400* 



01561400 0i56l6°0 01828500 09425900 09429000 09430075 O943O1OO 

0I5K 

0076 *09370000* 

09371000 09376000 
DISKADR 



0003 *01344000* 

05252000 *05254000* 05254000 *09253l00* 09389000 136S>3000 

00JT 

0041 *05334100* 

05350160 05350200 

DOIT 

0092 *13673100* 



13673450 13677300 



DOLLAR 

0021 *02639000* 



02641000 *02729000* 



DOLLARCARD 

0003 *02065500* 



02229000 02231000 *023l9000* 02604000 02730000 



DOLLARTOG 

0003 *01001540* 



•02366000**02603000* 



D0LLAR2T06 

0003 *01691500* 



*022U800**02230iOO* 02234600 02421000 



DOSTMT 

0003 *07482000* 



07488000 07759000 



DOT 

0003 *03015000* 



06178000 *06338000* O6346OOO 



DOT 

002i *02637000* 



02641000 *02668000* 



DOTSYNTAX 

0003 *05270000* 



*05286000* 05286000 06341000 15112000 15233005 l5276i50 15341000 



DOV 

0003 *01225000* 



07494000 08159000 08186000 



DPTOG 

0003 *01690000* 



02253000 02784000 02794000 02829000 *120 12000**120 16000* 



OSKIP 

0003 *02045000* 



02046000 02049000 



DSS 

0103 *16362000* 



16398000 16491000 



DSV 

0003 *01240000* 



DTYPE 

0003 *01452000* 



DUMMY 

0003 *01001470* 



OUMPOEC 

0094 *14014000* 

14019000 #14149000* 
OUMPEE 



0003 *01547000* 



DUMPINFQ 

0003 *02264000* 



02266100 02468000 



DUMPOR 

0003 *01552000* 



OUMPy 

0003 #01287000* 



OUP 

0003 *01643000* 

07524000 15095000 15306000 

DMA 

0012 #02264100* 

02265500 02265600 02265700 

E 

0003 *03054000* 

04099000 12123000 *1329300Q* 13333500 13342000 13755500 16000600 

E 

0003 *04500000* 

04526200 04530000 04536000 04543000 04549000 04555000 

E 

0026 #04099000* 

04100000 04102000 *04U20QQ* 

E 

0033 #04504000* 

04506000 04508000 *04509000* 04509000 04522000 



0085 *12103000* 

12103000 12105000 

E 

0103 *16065000* 

16070000 

E 

0103 *16085000* 

16089000 16091000 

EOITIINE 

0003 *02183500* 



02187000 2 i95000 02^5750 Qg2i4200 02228750 0242i000 O5O38OOQ 07025020 



EDOC 

0003 *13683000* 



13685000 13687000 13693000 13^5000 137i6Q0Q 13732000 13^33000 14002000 14003000 



EDOCINDEX 

0003 *01710000* 



EL 



EL 



0046 *06061900* 

*06104300* 06107200 

0085 *12102000* 

♦12112000* 12114000 #12125000* 12126000 



ELBAT 

0003 *01319000* 



02265100 02265250 029i0Q0Q 029i6000 02920000 02923000 02924000 0508*000 05189000 05216000 05217000 

05218000 05222000 05280000 05281000 05344570 05344615 05344620 05344660 05344700 05344710 05350120 

05350160 05350j80 O6O16OOO 06044000 06072000 06104300 06*08000 06166000 06185000 06324000 06325000 

06326000 07031000 07070000 07070500 07071000 07396000 0/430000 07516000 07516300 07518000 07521000 



07554000 
08034000 
09437000 
12125000 
14314000 
16159000 
16370000 



07566000 
08037000 
09447000 
13200000 
14349000 
16200000 
16376000 



07572000 
08176000 
09447010 
13361000 
14352000 
16204000 
16379000 



07583000 
OS>424000 
09447070 
13372000 
14353000 
16208000 
16408000 



07599000 
09425900 
09447080 
13394000 
14399000 
16211000 
16412000 



07667000 
09427500 
09447090 
13767000 
14519000 
16212500 
16435000 



077^5000 
09429000 
10277000 
13/68000 
15077000 
16254000 
16449000 



07768t00 
09432000 
12015000 
14062000 
15J76010 
16321000 



07994000 
09433000 
12024000 
14129000 
16000700 
16329000 



07995000 
09434000 
12036000 
14220000 
16121000 
16342000 



08029000 
09435000 
12044000 
14221000 
16124000 
16344000 



ELBATWORD 

0003 *05113000* 



05U6000 05118000 



E18ATW0RD 

0003 *05207000* 



05208000 05209Q00 



ELBATWORD 

0062 *07595000* 



07599000 07601000 



EL&W 

0059 *07503000* 



*07521000* 07527000 



ELCLASS 

0003 *01328000* 



•05002000 

06055000 
06i4l000 
06422000 
07095000 
07550000 
07668000 
08038000 
08 j84000 
12056000 
13758000 
14326000 
lSlllOOO 
l6i32000 
16326000 
16410000 



**05003000* 05109000 
06084000 



06076000 
06146000 
07012000 
07096000 
07553000 
07727000 
O81O3OOO 
O8186OOO 
13220000 
137 6 0000 
14336000 
15233003 
16198000 
16330000 
16415000 



06151000 
07013000 
07399000 
#07556000* 
07727010 
08ji3000 
08229000 
13331000 
13762000 
14357000 
15233026 
16204000 
16335000 
16417000 



05304000 

06104100 
061750O0 
07018000 
07404000 
07578000 
07727030 
08128000 
l0258i00 
13337000 
13763000 
14370000 
15276010 
16210000 
16336000 
16437000 



05344550 

06105000 
06180000 
07021000 
07409000 
07600300 
07727050 
08133000 
12022000 
♦13338000* 
14137000 
14396000 
15276J40 
16212500 
16337000 
16477000 



06004000 

06106300 
06198000 
07026000 
07431000 
07600400 
07728000 
08139000 
12028000 
13338000 
14165000 
J4404000 
15287000 
16213000 
16338000 
16478000 



06013000 

06107100 
06302000 

♦07032000 
07485000 
07604110 

*07749000 
08145000 
12033000 
13391000 
14197000 
14479000 
15294000 
16230000 
16339000 
1648 1000 



06034000 

06114000 
06316000 

* 07052000 
07494000 
07665000 

**07751000* 

08150000 
12035000 
13400000 
14259020 
*l45i6000* 
15339000 
16253000 
16341000 
16482100 



O6O36OOO 

06115000 
06340000 
07053000 
07506000 
07665500 
*07768i30* 
08153000 
12039000 
13403000 
1*259120 
15078000 
15349000 
I63i5000 
16374000 
16482300 



06048000 

06138000 
064H000 
07075000 
07507000 
07666000 
08031000 
08159000 
12042000 
13409000 
14260000 
15083000 
J6H9000 
16319000 
16379000 
16482500 



06052000 

06139000 
06416000 
07084000 
O75HO0O 
07666500 
08032000 
08182000 
12052000 
13756000 
14325000 

1*110200 
16131000 
16320000 
16381000 



ELCLASS 

0082 *10258100* 



*10263400* 10263700 10264100 10264300 10264410 10277000 10279000 *i0282000* 



ELClASS 

0087 *13220000* 



13226000 13246Q00 13278000 



ELSEBRANCH 

0050 *Q6295000* 



•06300000* 06307000 



ELSEV 

0003 *01227000* 



06302000 07567000 07578000 16220000 16230000 



EMIT 

0003 *03028000* 

04004000 04007000 04014000 04019000 04024000 04086000 04221000 

04318000 04531000 04535000 04550000 04551000 04554000 06054000 

06099^0 06104600 06148000 06166000 06l9l000 06308000 07093iOQ 

07995000 08049000 08050000 08122000 O8148OOO 08i5l000 08227000 

16133000 16219000 16232000 16266000 16387000 163*4000 16453000 



"04291000* 

06054100 
07431000 
14451100 



04302000 
06082000 
07436000 
15376700 



04315000 

06087000 
07544000 
16080000 



04317000 

06089000 
07604070 
16122000 



EMITB 
0003 



•03036000* 

*04U4000* 04125000 042j8000 06207000 

07540000 07579000 07585100 07586000 

08215000 08221000 13606000 14041000 



06301000 
07608000 



06307000 
08047000 



07088000 
08078000 



07444000 
08086000 



07487000 
08127000 



07495000 
08146000 



07496000 
08168000 



EMITC 

0003 *04010000* 



04014000 14451000 16032000 16079000 
16216000 16342000 16352000 16370000 



16121000 16124000 16200000 16208000 162H000 16212500 16213000 
16378500 16379000 16383OOO 164O8OOO 16415000 16417000 



EMITO 

0003 *03050000* 



•043H000* 04322000 04556000 05203000 06332000 Q70V300Q 0/093200 iSlOOOOO 15233013 15276070 15308000 



EMITI 

0003 *04500000* 



06344000 15124000 15233018 15276210 15370000 



EMITJUMP 

0103 *16065000* 



16093000 16255000 



EMITL 

0003 *04003000* 



0*032000 04205000 04544000 05222Q00 06U0000 06206000 08046000 0806?000 08077000 13264000 13267000 
13773000 14506500 



EMITLNG 

0003 *04098000* 



04H2000 06l«8oOO 07573000 07575000 08150000 QQ220000 



EM1TN 

0003 *04022000* 



04024000 04212000 04524000 05202000 07092000 08075000 08x79000 08212000 
l52330n 15276080 15302000 i5344i00 15351200 15353000 16261OOO 



I2O36OOO 15094000 l5liQ200 



EMlTNUM 

0003 *03049000* 



04i2l000 #04203000* 04225000 O6168OOO 07089000 07442000 O8O21OOO 08089000 t20i4000 12015000 1322*000 



EMITO 
0003 



*04006000* 

04018000 
04531000 
07078000 
08049000 
08189000 
13743000 
15276090 
15351300 



04023000 
04537000 
07087000 
O8O5OOOO 
08214000 
13752000 
15290000 
15354000 



04033000 
04545000 
07091000 
08065000 
082i'000 
13761000 
15302000 



04034000 
05226000 
07408000 
08068000 
08228000 
13765000 
15303000 



04109000 
05316000 
07434000 
08070000 
12024000 
13766100 
15306000 



04U2000 
06021000 
07512000 
08079000 
12038000 
14167000 
15309000 



0412J000 
06077000 
07516400 
08094000 
12054000 
14389000 
15310000 



04212100 

06H03Q0 
07524000 
08123000 
13263000 
14451000 
15333000 



04223100 
06172500 
07525000 
08125000 
13264000 
15095000 
15344000 



04311090 
06187000 
07526000 
08126000 
13268000 
15106100 
15344100 



04507000 
06203000 
08044000 
08166000 
13MOO0O 
15106200 
15351200 



EMITPAIR 

0003 *04028000* 

04034000 
15233014 



04523000 
15267000 



05 2 0i000 05227000 07Q7i000 07090000 0B090000 i32l4000 13230000 l5l07000 1*233010 



EMITSTORE 

0003 *13214000* 



13230000 



EMITV 

0003 #04017000* 



040i9000 04184000 04^84500 04521000 052l9000 05226000 053j6000 07413000 07439000 07516300 06021000 
08044000 08075000 O8166OOO 08212000 12047000 13236000 1309000 i509f0Q0 15U0300 15276060 15290000 
15344200 15352000 



EMITW0R0 

0003 #04142000* 



04152000 04187000 07604120 



EMIT21 

0033 *04503000* 



04526200 O453OOOO 04536000 04543000 04549000 04555000 



ENDOFITAtL 

0003 #05101100* 

#16495210* 



ENDREADTAPE 

0010 #02201510* 



02202010 #02202080* 



ENOTOG 

0003 #01415000* 



#02653000* 02653000 02680000 02884000 #06021000* 06022000 #06022000**070 16OOO* 070i9000 #07020000* 



ENDV 

0003 #01228000* 



05109000 07013000 07018000 07748000 07749000 16477000 



ENS 

0103 *16013000* 

16133000 



ENTER 

0003 #03069000* 



13390000 *137t*000* 1*138000 1*139000 1*14Q000 141*1000 1*162000 



ENTRY 

0003 *0305500O* 



♦13314000* 13729000 1*165000 1*194000 14<J07QQ0 14259010 14319000 14333000 14403000 14409000 



EOF 

0009 *02210250* 



02216250 *02217000* 



EOF 

0067 *08999050* 



08999150 08999375 *08999400* 



EOF 

0077 *09394000* 



09399000 *09413000* 



EOFT 

0010 *02201510* 



02201750 *02202020* 



EPARJ 

0021 *02639000* 
*02810000* 



EQl 

0003 *01644000* 



EQUAL 

0003 *02062500* 



02064000 02064500 02881000 



EQVQP 

0003 *01274000* 



02965500 02971000 06036000 



ERR 

0003 *01718000* 



02211500 04145000 04300000 *05i05000* 05109000 05H0000 05285000 06005000 06086000 06095000 06107000 



06109000 

06421000 
07513000 
08059000 
H259120 
15343000 
16253100 



06H6000 

06423000 
07517000 
08134000 
15081000 
15364000 
16316000 



06142000 

07015000 
07598000 
08i60000 
15U5000 
15367000 
16347000 



06151000 

07053000 
07600700 
08178000 
15119000 
16125000 
16367000 



06154000 

07097000 
07604130 
08229000 
15233008 
16132000 
16384500 



06176000 

07099000 
07667500 
12007000 
15256000 
16160000 
16397000 



06302000 

0/405000 
07672500 
12033000 
15261000 
16205000 
16418000 



06334000 

07412000 
07674000 
12039000 
15276J70 
16206000 
16483000 



064H00O 

07437000 
07727080 
12052000 
15276190 
16207000 



06415000 

07485000 
07732000 
12056000 
15294000 
16214000 



06417000 

07494000 
07994000 
14259090 
15297000 
16217000 



ERRMAX 

0003 *01001550* 



02211500 *02502000**09028910* 



ERRNUM 

0003 *01716000* 



ERRNUM 

0003 *01718000* 



ERKNUM 

0003 *05105000* 



05106000 05107100 05107200 



ERRNUM 

0003 *05012000* 



05044000 05091000 

ERHNUM 

0034 *05016000* 

05017000 05026000 

ERROR 

0007 *02091500* 

02114000 02119000 

ERROR 

0003 *05110000* 



07667500 07672500 07674000 



ERRQR 



0022 *02958000* 
02959000 

ERH0RC0UNT 

0002 *00501000* 



02211500 *05035000* 05035000 05087000 09028000 *09028900* 09386000 09391000 



ERRORTOQ 

0003 *01412000* 



05 032 000 *050« 7 000**05 11 9000**0 7 009000** 0^06 3 000**0^645000**0^ ^50000**1 3282000** 141 30000** H ft *30O0* HSllOOO 
♦16130000* 



EXAMIN 

0002 *00511000* 



00512000 00529000 00531000 00533000 00536ooO 0221*200 0222575 02228250 02230000 02230100 02*65000 
02680000 02697000 02745000 02750000 02753000 02786000 Qz^iOOO 02807000 028i3000 02888000 



EXIT 

0003 *01758000* 



01763000 01764500 0l7s2000 



EXIT 

0009 *02210000* 



02215750 *@2225000* 



EXIT 

0007 *02091500* 



02104500 02112000 02^4500 02H5500 02n8500 02119500 



EXIT 

0016 *02360000* 



02375000 024HO00 02413000 02486000 02^88000 *02602000# 



EXIT 

0022 *02957000* 



02958000 02959000 02962500 *0g967500* 



EXIT 

0035 *05049000* 



05094000 *05100000* 



EXIT 

0038 *05273000* 



05284000 *05286000* 



EXIT 

0032 *04311010* 



04311100 *04322i00* 



EXIT 

0033 #04501000* 



04526200 04532000 04538000 04546000 04552000 #04558000* 



EXIT 

0044 *05439000* 



05454000 05457000 #05458000* 



EXIT 

0041 *05334000* 



05344760 05372000 #05375000* 



EXIT 

0049 #06195000* 



06200000 06204000 #06209000* 



EXIT 

0046 #06061000* 



06069000 06086000 06096000 06107000 06109000 06116000 #06125000* 



EXIT 

0047 #06137000* 



06142000 06149000 06154000 06176000 #06182000* 



EXIT 

0040 #05325030* 



EXIT 



0054 *07037000* 

07097000 07099000 *07l0l000* 



EXIT 

0059 *07504000* 



075HOO0 07516600 07517000 075l9Q00 *07531000* 



EXIT 

0051 *06315000* 



06333000 *06335Q00* 



EXIT 

0052 *06339000* 



06341000 *06346000* 



EXIT 

0055 *07394000* 



07402000 07405000 *07423000* 



EXIT 

0060 *07549000* 



07555000 *07557000* 



EXIT 

0062 *07594000* 



07598000 07600700 *07646000* 



EXIT 

0061 *07562000* 



07573000 07574000 07576000 07579x00 07584000 *07587000* 



EXIT 

0064 *077?6000* 



07727080 07732000 07733000 07735000 07737000 07739000 07743000 07746000 07749000 0775JOOO 07753000 
07755000 07757000 07759000 07761000 07763000 07765000 07768160 07771000 



EXIT 

0065 *08017000* 



08092000 08178000 08222000 08229000 *08232000* 



EXIT 

0066 *08092000* 



08134000 08160000 #08172000* 



EXIT 

0084 *12005000* 



12033000 12040000 12052000 12056QO0 *12058000* 



EXIT 

0062 *10259000* 



10263900 10275000 #10284000* 



EXIT 

0103 *16475000* 



16484000 16487000 16490000 l649iQ00 16492000 16493000 *16494000* 



EXIT 

0109 *16193000* 



16205000 16206000 16207000 16214000 16217000 #16239000* 



EXIT 

0102 *15076000* 



15081000 15110400 l5n2000 15U5000 15119000 15233005 15233008 15233024 15256000 15261000 15275000 
15276120 152?6i50 I5276i70 l5276i90 15276230 15294000 15297000 15305000 15337000 15341000 15343000 
15365000 15367000 *15377000* 

EXIT 

0107 *16117000* 

16125000 16132000 *l6i44000* 

EXIT 

0112 *16365000* 

16367000 16384500 *16398000* 

EXIT 

OHO *16251000* 

16253100 *16270000* 



EXIT 

01U *16313000* 



16316000 163*2000 16347000 *t6355000* 



EXPECT 

0003 *03009000* 



EXPECT 

0003 *06060000* 

06119000 



EXPRSS 

0003 *03007000* 

♦06057000* 06299000 

F 

0003 *0l688000* 

05068000 *14077000**14078000**HH5000* 14U50Q0 16031000 

F 

0003 *02262000* 

02262000 02263000 

F 

0018 *Q2441000* 

02443000 

F 

0018 *02446000* 



02448000 02635000 2 955500 02*80000 03009000 030H000 030i9000 03020000 030 2 4000 03025000 03028000 

03029000 O3O36OOO 03037000 O3O38OOO 03039500 0304^00 03042000 03047000 03Q47i00 03049000 OiOSOOOO 

S2S 5 AS22 2305100 1 03053000 03055000 3 057000 03067000 O3O68OOO 03070000 03071000 04003000 04006000 

040*0000 040H000 040l7000 04022000 04029000 04030000 04U5Q00 04H6000 vvjwuu u*uu uuo 



0035 *05068000* 

05069000 05076000 



0067 *08999075* 
08999100 

F 

0077 *09393700* 

09393710 09393720 09393730 10228000 10234000 

F 

0092 *13673100* 

13673100 13673350 

F 

0i0« *16031000* 



FACTOR 

0003 *01299100* 

15253000 



FCR 

0003 *01330000* 



02l8 2 750 02194000 02i95000 021*5750 *0 2 2l4000* 02214200 *02225250* 02225750 02228250 02228750 02230000 
02230100 02421000 02731000 05038000 *07025010* 07025020 *07025030* 



FCR 

0003 *02016000* 



02016000 02017000 



FElL 

0003 *0<*130Q00* 

04132000 



FEW 

0018 *02441000* 



02444000 02445000 02452000 



FETCH 

0003 *02262000* 



02263000 08999i75 09400000 09401000 



FIfcU 

0003 *02056000* 



02058000 02059000 



FILL 

0076 *09364000* 



09365000 09366000 09367000 



FIEL 

0091 *13633000* 



13636000 13637Q00 



0092 *13661000* 



13665000 13667000 



Fit 

0076 *09370000* 

09372000 



FILEDEC 

0094 *14015000* 



14020000 *14158000* 



FIIEID 

0003 *01299300* 

14430000 



FILEV 

0003 *01296000* 



FILLIT 

0040 *05325040* 



05325440 05325460 05325470 05325480 
FHISTMT 



0003 *07647000* 

07677&00 13396000 

FINAL 

0082 *10258300* 

♦10263900* 10264400 10264420 



FINALAX 

0076 *09378000* 

09384100 



FIND0PTI0N 

0003 *02307000* 



*023l7000* 02318Q00 02327000 02967000 



FIN! 

0103 *16475000* 



16476000 16478Q00 16483000 16486000 16489000 *16495000* 



FINIS 

0007 *0209l500* 



02095500 02096500 02099500 02110000 02125500 



FINISHED 

0029 *04204000* 



04220000 *Q4225000* 



FINISHNUMBER 

0021 *02638000* 

*02847000* 



FIRST 

0003 *05271000* 



♦05280000* 05282000 



FIRST 

0051 *06314Q00* 



♦06324000* 06327000 06332000 



FIRST 

0052 *06339000* 



06341000 06344000 



FIRSTTIME 

0009 *Q22100O0* 



02210750 *02213500* 



FIRSTX 

0003 *01621000* 



13608000 *13612000* 13623000 14051000 *14052000* 14600000 *14608000* 



FIRSTXO 

0094 M4O330O0* 



*14051000* 14608000 



FIX 

00i8 *02446000* 



02451000 02454000 



FIX 

0056 *07427000* 



♦07430000**07433000* 07439000 07440000 



FIX 

0066 *08082000* 



08090000 08157000 08171000 



FIXc 

0103 *16029000* 

16057000 16141000 16233OOO 16236000 16238OOO 

FIXOEFINEINFQ 
0003 *01717900* 

02896000 *12101000**12108000* 
FIXHDR 



0077 *Q9393700* 

09393750 09430075 



FIX! 

0109 *16i95000* 



♦16218000* 16233000 16238000 



FIX2 

0109 *16195000* 



*16232000* 16236000 



FL 



0003 *01420000* 

06^0000 07050000 07058000 07073000 



07083000 12037000 I5ll0i00 15276210 



FLAG 

0003 *01716000* 

02226500 02316000 02421000 0250i000 02593000 02599000 

02899000 02^58000 02959000 02*62000 02976500 02977500 

05n9000 05344610 0534466i 05347000 05348000 05370000 

07061000 07600000 07600420 07600900 07604000 07604068 

10264420 I2O2SOOO 12030000 12H5000 I2I26OOO 13210000 

I339i000 13395000 13400000 13404000 I365ll00 13729000 

13766 00 14066 00 1*135000 I4l36 00 1*137500 1«146 00 

14220000 14268000 14286000 14295000 143U000 14326000 

14358000 143^1000 14442000 14486000 J450800Q 1&376600 
16434100 



02650000 
040^000 
06104520 
07671500 
1328 2000 
13753000 
1*153000 
14333300 
I6O33OOO 



02686500 
04176000 
06110200 
07728000 
13332000 
13754000 
14161080 
14337000 
16071000 



02696000 
#05012000* 
06200000 
07747000 
13338000 
13758000 
14165000 
14339000 
16163000 



02824000 
05101000 
07024000 
09282600 
13340000 
13761000 
14168 00 
14346000 
16171000 



02828000 
05106000 
07025000 
10243000 
13386000 
13763000 
H187000 
14351000 
16265000 



FtlPFLOP 

0093 *13750500* 



*13752000**13755500* 13755500 



FOOT 

0066 *08091000* 



♦08162000* 08166000 



fqrlist 

0065 *08080000* 



08156000 08172000 08231000 



FORMAL 



0003 *0ll*9000* 

05209000 05218000 05236000 07070000 09133800 13202000 13244000 1*427000 

FORMALF 

0003 *01591000* 

07400000 07*11000 * 13202000**1 3328000**13341100**13343000* 13372000 M6OOO4QO* 

FQKMALNAME 

0102 *15076100* 

15092000 15105000 

FQKMALV 

0065 *08014000* 

O8O56OOO 08065000 08098000 08j08000 O813OOOO 08i79000 Qb^OOG 08217000 08227000 

FORMATBJT 

0003 *01000950* 

01001240 02567000 14461500 14493500 

FORMATOG 

0003 *01001240* 

14461500 14493500 

FORSTMT 

0003 *03052000* 

07755000 *08008000* 08232000 

FORv 

0003 *0t223000* 



FORWARDBRANCH 
0066 *08091000* 

*08152Q00* 08157Q00 08169Q00 08171000 



FQRWAROV 

0003 *01254000* 

14467000 



FOHWART 

0066 *0808ft000* 

08086000 



FOULCO 

0003 *01583100* 



*0 ft n9500* Oft n9500 *0ft i5l000**0ft207500 **Q7ft8 3500 **07ft9 1 500**0 760 ftO lO **ift505000 * 



FOUNO 

0015 *02309000* 

02313000 *0?3l5000* 

FOUND 

0029 *0ft20ft000* 

0ft209000 *0ft221000* 

FP 

0003 *0lft20000* 

06i6ft000 15119000 153*9000 

FPART 

0021 *0?639000* 

02682000 *02790000* 

FR 

0003 *0lft20000* 

08228000 15305000 

FR 

0003 *030ft2000* 

FR 

0003 *13657000* 

13677100 13677250 *13677250* 13677250 13677300 
FRMTIO 



0003 *01182000* 



FROM 

0003 *0«H6000* 



04120000 04120100 04120500 



FROM 

0003 *03037000* 



FRUM 

0003 *03038000* 



FROM 

0003 *03029000* 



FROM 

0003 #03011000* 



FROM 

0003 *07391000* 



07402000 07404000 



FROM 

0003 *06t94000* 

06198000 



FRONT 

0058 *07491000* 



♦07493000* 07496000 



FRSTUEVEl 

0003 *01402000* 



05U6000 *14478000* 



F5 

0003 *01420000* 



07739000 15102000 l5i04Q00 1S1H000 15233008 15233015 I5276l00 15276H0 152761*0 1527&190 15334000 
15335000 15342000 15364000 15367000 



FUNCMONFILE 

0003 *01543000* 



FUNCTOG 

0003 *0i586000* 



13736000 14054000 14187000 *142750Q0** 14288000**14296000* i«MllQO 1441&100 14452000 14478000 *t«599000* 



FUNCTOGO 

0094 *14034000* 



*i4054000* 14599000 



FWDTOG 

0099 *14274000* 



*14276000**14312000* 14333100 14373000 



FZERO 

0003 *01692000* 



•05344592* 05344662 05375i00 14078000 



G 

0003 *01610000* 



*13231000* 13236000 *i37t800Q* i3723000 *13724000* i37;>$000 *13/'27000* t 3729000 *i4084000* 14085000 14091000 
14H5000 14H6000 14^7000 * 14278000** 1428 lOOO* 14284000 142V2Q0Q 14294000 *14296000* 14298000 14299000 
*H3lOOOO* 14315000 *14349000* 14349000 *14352000* 14353000 *i444600Q* 14449000 *14470000* 14470000 



GENERATE 

Olll *16313000* 



16322000 *16345000* 



GEO 

0003 *01647000* 

08050000 



GET 

0003 *03019000* 



0«i02000 04105000 04i8200O *05307000* 05312000 *05312000* 07604050 07607000 07608000 08086000 13235000 
13258000 13267000 13273000 14168000 16032000 16092000 



GETF 

0002 *00523000* 



00524000 00526000 00527000 00529000 



GETIP 

0095 *t*076000* 



*14084000* U089000 



GETSPACE 

0003 *03051000* 



05132000 *05331000**05375000* 05378000 08i62000 133*7000 14044000 



GETSYL 

0039 *05309000* 



05310000 05312000 



GETVOID 

0003 *01756000* 



01784000 02410000 02485000 



GIT 

0003 *01719000* 



02901000 *05123000**05124000* 06104300 07410000 07412000 07438000 07441000 07527000 07539000 07601000 
132*9000 13257000 i4388t00 14438000 14483*00 15376300 16070000 16089000 16138OOO 16163000 1625*000 
16257000 



GNAT 

0003 *03020000* 



*05l28000**05l3l000**05i32000* 05133000 053l6000 07516300 13267000 



GNC 

0007 *02091500* 



02097000 02104000 



GOGEN 

0003 *03023000* 



07518000 07529000 *0753500Q* 07545000 07572000 075?30Q0 07575000 07583000 13274000 



GOMCP 

0059 *07504000* 



GOSTMT 

0003 *07501000* 



07531000 0776SOOO 



GOT 

0077 *09393060* 



09393130 09393170 09393190 



GOTOS 

0103 *16249000* 



16270000 16454000 16487000 



GOTSCHK 

0094 *14016000* 

14160000 



GOTSTORAGE 

0003 *13733000* 



GOTSTORAGE 

0094 *14025000* 

14160000 *14160000* 

GOV 

0003 *01232000* 

07550000 07556000 
GRINCH 



0077 *09393060* 

09393130 09393170 09393190 

GRINCH 

0077 *09393250* 

09393350 09393400 09393430 



GS 



GS 



0003 *05325010* 

05325460 05325470 05325480 

0041 *05344000* 

*0534459 2 **05344600**053446x5**05344620* 05344620 *05344660* 0534466j 05344662 *05344662* 05344662 *05344700* 
05344720 *05344740* 05344740 05344750 *Q5350000* 05350^0 05350200 *0537l000* 05373000 *053?3000* 05375000 
05375j00 *053?6000* 05376000 05376i00 



GTA1 

0003 *01697000* 

13210000 
l4 i 6 l 2 



I335i000 
14164000 



j338l000 
14259000 



13408500 
142590J0 



i37!8000 
14259015 



13724000 
14259080 



137 2 7000 
14278000 



14069000 
14281000 



14129000 
14296000 



14134000 I4i6l000 



GTI1 

0003 *0U64500* 



*02192500**02193000* 02t93250 



GTR 

0003 *01650000* 



GTi 

0003 *Q1384000« 


i 




















*Q22Q3500« 


» 02205000 


*02452000* 


02456000 


*02652000* 


02653000 


08655000 


*02658000* 


02659000 


027 16000 


*027 19000* 


02720000 


02723000 


♦02823000* 


02830000 


♦02832000* 


02832000 


02833000 


02834000 


02838000 


02839000 


*02875000* 


02676000 


02877010 


02878000 


02879000 


02881000 


02882000 


*02866000« 


02894000 


*04105000* 


04107000 


04109000 


04n0000 


*04i20i00**04i20500* 


04i2j000 


04122000 


*04508000* 


04521000 


04523000 


04524000 


*05n6000* 


0511/-000 


*0523i000« 


' 05233000 


05235000 


*05235000**05447000* 


05449000 


•07042000* 


- 07043000 


07044000 


*07066000< 


r 07067000 


07436000 


♦07539000* 


07540000 


07544000 


07545000 


*07600950**07727O20^ 


07727070 


*07994000* 


07995000 


•08058000* 


08060000 


*09034j00* 


09034200 


091338OO 


*09i33900* 


09134000 


09134100 


09134200 


*09253000* 


09253500 


09254000 


09255000 


♦09414040* 


09414080 


09414090 


*Q94i5000* 


09415500 


09416000 


*094l6000* 


09416000 


09417000 


*094l7000* 


09417000 


09418000 


*10250000* 


10251000 


♦13226000* 


13232000 


13840000 


13244000 


13248000 


♦13251000**13256000* 


13259000 


♦13273000* 


13274000 


•13280000* 


- 13282000 


♦13371000* 


13373000 


♦14039000* 


14041000 


14H6000 


14203000 



•14333300**14425000* 14427000 
15107000 *15295i00* 15296000 



14429000 14430000 14437000 14447000 *i4483200# 14483300 ♦15102000* 1&106200 
16157100 *16254000* 16255000 16257000 16258000 16260000 16265000 16452000 



GT1 

0097 M4203000* 



♦14206000* 14221000 ♦14221000* 14224000 



GT1 

0108 ♦16157100* 



♦16159000* 16163000 16164000 16166000 16171000 16173000 



GT2 

0003 *01384000* 



*0272i000* 02723000 
05234000 *05448000* 
07604090 *07604090* 
♦13284000* 13285000 
♦16254000* 16255000 



02834000 
05450000 
07605000 
13286000 
16266000 



02839000 *Q2876000* 028770i0 

♦07539000* 07545000 07595000 

07607000 07607100 07608000 

14203000 *14430000* 14431000 



GT2 

0097 *14203000* 



♦14217000* H224000 



GT3 

0003 ♦01384000* 



02B78000 
♦07601000* 
*076Q9000^ 
♦14446000* 



0287*000 
07604040 
09133800 
14448000 



02881000 

07604050 

09H3900 

♦16163000^ 



01721000 05402100 *05402l00 ^05405000^ 05405000 *05407000* 05407000 ♦05409000^ 05 
♦05430000* 5 430000 07397400 *07397400**07397500* 07397500 ♦07527000* 07528000 07 
*09i34l00^ 09134200 *13285000* 13287000 *14438000* 14438000 *i4483400* 14483400 



02882000 
07604060 
09134000 
16167000 



*05233000* 
07604070 

*0913«100* 
16172000 



409000 05428000 *05428000* 
595000 *07601000* 07610000 



GT4 

0003 *01384000* 



02904000 #06104300* 06104500 ♦06104500**06104510* 06104510 *061Q4520* 06104600 *07527000* 07527000 07528000 
07529000 07596000 *0760i0Q0* 07603000 07610000 ♦13235000^ 13238000 14203000 



GT4 

0097 *14203000* 



GT5 

0003 ♦01384000* 



♦07028000* 07029000 07596000 *07604050* 07604080 07604090 ♦07607000^ 07609000 14203000 



GTS 

0097 *H203O00* 



H 

0005 *01822000* 



*0l828000* 01833000 01835000 

H 

0003 *05315000* 

05316000 

H 

0035 *05068000* 

05071100 05071200 05085000 

HEXIZE 

0003 *02001858* 

02001897 02001898 

HEXOP 

0003 *Q1268000* 

01299200 06071000 0608*000 

HF 

0094 *t«017000* 

14123000 *14382000* 14508000 

HOLE 

0055 *07393000* 

• 07396000* 07398000 07<jl0000 07412000 



HTTEOAP 

0003 *137J1000* 

13747000 14489000 14600000 



0003 *0t319000* 



*029j7000* 

*05j07200* 

05260000 

05344710 

06104300 

07066000 

07521000 

07600500 

07727060 

07768130 

08U0000 

*0Vftt4030* 

*0942«000* 

09436000 

13324000 * 

14062000 

#14255000* 

14360000 

16121000 

16321000 

♦16449000** 



029l7000 

05107200 

05281000 

05344770 

06108000 

07070000 

07554000 

07600950 

07745000 

07768i70 

08111000 

09414040 

09424000 

09447020 

13324000* 

14063000 

14255000 

14399000 

16124000 

16329000 

16450000* 



0423/000 

05189000 
05344570 

*05344770 
06166000 
07070500 
07556000 
07604020 
07748000 

♦07768170 

♦08120000 
09414100 
09426000 
09447030 
13361000 

*14067000 
14264000 
14408000 
l6i59000 
16342000 
I645OOOO 



*05002000* 

05216000 
♦05344600* 

* 05350120 
06185000 
07071000 

♦07556000* 
♦07604130* 
07749000 * 
**07768l80^ 

* 08120000 * 

*094l4l00** 
*09427000* 
09447040 
13372000 

* 14067000 
♦14264000* 
♦14408000* 

16200000 
16344000 
16482300 * 



05002000 

05217000 

05344600 

05350160 

06324000 

07396000 

07566000 

07604130 

07749000* 

07768180 

08174000* 

09415000* 

09427100 

10258200 

13394000 

14129000 

14314000 

14516000 

16204000 

16370000 

16489000* 



05003000 

05218000 
05344615 
05350180 
06325000 
07397210 
07572000 
*07604l50 
*07750000 
07994000 
08176000 
09415000 
09427500 
12015000 
13^53100 
14137200 
14332000 
14519000 
16208000 
16376000 
16489000 



♦05003000 

05221000 
05344620 
05414000 
06326000 
07401000 
07583000 
07604150 
07750000 
07995000 

♦06223000 
09418000 

♦OV427500 
12020000 
13757000 

♦14137200 

♦14332000 
15077000 
162H000 
16379000 
164*5100 



**05l07000 

05222000 
05344660 
05438000 
*07008000 
07430000 
07599000 
07667000 
07751000 
08029000 

* 08999050 
09419000 

**09432000 

120240OO 

♦13757000 

* 14189000 

* 14349000 
15276010 
16212500 
16408000 



* 05107000 

05224000 
♦05344670^ 

O6O16OOO 

* 07008000 
07516000 

♦07600200* 
07727040 

♦07751000* 
06034000 
08999500 

♦09419000* 

♦ 09433000 
12036000 

♦ 1376H00 
M4189Q00* 

14352000 
♦15276040* 
M6252000* 

16412000 



♦05107100 

♦05225000 
05344670 
06044000 
07031000 
07516300 
07600200 

♦07727040 
07768100 
08037000 

♦09391000 
09419000 
09434000 
12044000 
13767000 
14220000 
14353000 
15276040 
16252000 
16435000 



♦ 05107100 

♦ 05225000 
05344700 
06072000 

*0703iOOO^ 

07518000 

♦07600500* 

**07727060* 

*07768i30* 

*06H0000* 

♦ 0V393270 
♦O942OO20* 
♦09436000* 

13200000 
13768000 
14221000 
♦14360000* 
16000700 
16254000 
16449000 



0003 *05400000* 

05402000 05402200 05402300 05404000 05409200 05409500 

0030 *04237000* 

04239000 04241000 *04242000* 04243000 

0043 *05415000* 

05415000 05419000 0543^000 06060000 

0044 *05438000* 

♦05444000* 05445000 05447000 05455000 *05456000* 05456000 05458000 05459000 

0043 *Q5414Q00* 

05424000 05425000 05425^0 #05425400* 05425400 05426000 #05430000* 05430500 05431000 



0041 *05334100* 



05334400 05334600 

I 

0067 *Q8999Q50* 

#08999175* 08999g25 08999350 

I 

0068 *08999500* 

♦08999525* 08999550 08999650 

I 

0079 *09393270* 

•09393300* 09393310 

I 

0082 M0258200* 

10277000 10282000 

I 

0092 *13673100* 

13673300 13671400 

ID 

0015 #02310000* 

♦02312000* 02313000 

ID 

0035 *05067000* 

05067000 05070000 05246000 05247000 05325010 

ID 

0040 *05325040* 

05325320 

idbit- 

0054 *07039000* 

♦07047000* 07050000 07068000 07O82OO0 

ID8LDR 



0007 *02091500* 

02093000 02103000 02U0500 



IDENT 

0021 *02639000* 



02643000 *02865000* 



IDMAX 

0003 *01479000* 



05344520 O61O63OO 07664000 13337000 13754000 16213OOO 16253000 i6482i00 



IDV 

0003 *01651000* 



IFCLAUSE 

0003 *03018Q00* 



06296000 *06409000* 07563000 



IFtxP 

0003 *03013000* 



06005000 *06294000*#06299000* 063HOOO 



IFS 

0103 *16191000* 



16239000 16486000 



IF5B 

0109 *16193000* 



16194000 *16216000* 



IF5C 

0109 *16193000* 



16194000 M6207000* 



IFSTMT 

0003 *03022000* 



•07561000* 07587000 07761000 



IF*>W 

0109 *16194000* 

16197000 



IFTOG 

0109 *16193000* 



16194000 16215000 *!62l700Q* 



IFV 

0003 *01231000* 

06004000 



IMKFUN 

0003 *03039000* 



06158000 *06183000* 



INCR 

0003 #01153000* 



02658000 05124000 05i89000 05222000 06080000 06i69000 13206000 13240000 13307000 *14H6000* 15255000 
15295100 



INCRF 

0003 *01607000* 



*13206000* 13769000 14314000 



INDEC 

0094 *14014000* 



14019000 14158000 



INDEX 

0003 *05005000* 

05006000 



INDEX 

0003 *03053000* 



INOEX 



0003 *05008000* 
05009000 

INOEX 

0003 *07036000* 



07042000 07096000 



INOEX 

0062 *Q7595000* 



07601000 07610000 



INOEX 

0U1 *16314000* 



*16320000**16328000**16334000* 16346000 16349000 



INDEXS 

0103 *163U000* 



16355000 16490000 



INFO 
0003 



♦01007000* 

02212250 
02485000 
04211000 
05350200 
09253500 
13310000 



02214250 
02602800 
04221000 
05426000 
09254000 
13593000 



02226000 
02877010 
04223000 
05431000 
09255000 
13677300 



02228000 
02878000 
05006000 
05449000 
09384100 
14440000 



02234750 
02879000 
05009000 
05450000 
09366000 



02265600 
02881000 
05039500 
0?QB6400 
09392500 



02265700 
02923000 
05045000 
06035000 
10251000 



02265850 
04172000 
05088000 
09034200 
10254000 



02265950 
04187000 
05233000 
09034500 
10264800 



02368000 
04209000 
05325470 
09085000 
1211^000 



024^0000 
0«2i0000 
05350160 
0V121650 
Ii28l000 



INFQ 

0003 *02005000* 

02006000 



INFO 

0016 *02320200* 



02320600 



INFO 

0077 #09392500* 



09406000 09427500 09447060 



INFO 

0083 M0236000* 

10238000 



INLINE 

0003 *03010000* 



07746000 *13748000* 13774000 



INLINETQG 

0003 *0l695500* 



13307500 *13752000**13770500* 



INT 

0065 *08012000* 



•08060000* 08070000 



INTARRAYIO 

0003 *01205000* 



04522000 08057000 1523300V 15333000 



INTBIT 

0003 *0l000960* 



0i00i250 #02577000* 02577000 *OV253050* 09253050 09253100 09394l00 094i40i0 09430050 13651100 



INTEGERDEC 

0094 *140i3000* 



14018000 *14141000* 



INTID 

0003 *01201000* 



04509000 08038000 08061000 12035000 12Q420QQ 14141000 15086000 15102000 



INTNAMEIO 

0003 *01205400* 



INTOG 

0003 *0t001250* 



02577000 09253050 09253l00 09394l00 094i40j0 09430050 1365ll00 



INTPROCIO 

0003 *0H97000* 



13278000 14294000 15078000 



INTRINSICAOR 

0003 *01299500* 

09253100 



INTRNSKPRQCID 
0003 *0U88OO0* 



INTSTRPROCID 

0003 *01J93000* 

14284000 



INTV 

0003 *01285000* 



INV 

0003 *01290000* 



INX 

0003 *0t652000* 



04531000 07091000 15303000 l&344i00 15351200 



IOCLASS 

0003 *01233000* 



IOSTMT 

0003 *03012000+ 

07765000 *07993000* 
IPART 



0021 *02639000* 

02643000 *02758000* 

IS 

0033 *04501000* 

04527000 0*540000 *Q4548000* 



ISO 

0003 *01653000* 

15103000 15276i00 15334000 



ISKIP 

0083 *10236Q00* 



10237000 10238000 



ISN 

0003 *01654000* 



J5103000 15276^0 15334000 



ISOLATE 

0003 *01270000* 

06092000 



ITUP 

0102 *15076000* 



*15233018* 15233026 



0003 *01618000* 



04166000 05401000 054i4000 05438000 07393100 08999050 08999500 093930j0 12102000 #13210000* 14210000 

l !2 2 l°5° *i3324 00* 13333500 * 13333500** 13342000* 13342000 13351000 13381000 * 13381000**13406500** 13/ 1 8000* 

13718000 13724000 *i37 2 4000* l37 2 7000 *137 2 7000* 13750000 *i«°690QQ* HifSoQO *l4i29000* 14132000 J«l3«000 

14135000 *14135000* 14^6000 *i4j36000* l4 t 37600 *l4 137600 **l4 16 lOOO * i4l6i000 *l4i6l000* 14161000 14161020 

*i4idl020* 14164000 *l4i64000* l4J54i00 *14278000* 14278000 *l«28l000* 14281000 *14296000* 14296000 #14421000* 

14425000 14438000 14440000 14446000 14448000 *i4449QQ0* 14449000 15075000 l63i4000 16364000 



J 



0003 *10228000* 

10263110 10264600 10264900 



J 

0028 *04166000* 

04170000 04172000 04187000 

J 

0042 *05401000* 

05405000 #05405000* 05406000 05407000 

J 

0044 #05438000* 

•05444000* 05446000 05448000 05452000 *05453000* 05453000 

J 

0043 #05414000* 

05428000 *05428000* 05428000 054g9000 05430000 

J 

0055 *073«3100* 

07397300 07397400 

J 

0067 #08999050* 

*08999i25* 08999 2 25 08999275 #08999275* 08999350 

J 

0068 *08999500* 

#08999625* 08999650 08999700 *08999750# 08999750 

J 

0079 #09393270* 

#09393290* 09393350 *09393360* 09393360 09393400 09393420 #09393420* 09393430 #09393450* 09393450 

J 

0077 *09393010* 

09393270 09414022 09414024 09414026 #094 l4026*#094l4030 * 094J4060 #09414060* 09414070 09414H0 #09420020* 
09425000 #09425000**09428000* 09428000 09447050 09447060 09447080 

J 

0082 *10257100* 



10257100 10257500 10257700 

J 

0087 *13221000* 

♦13232000* 13239000 *1 3257000**1 3258000* 13258000 13264000 13265000 13270000 13271000 

J 

0085 *12102000* 

12116000 M2116000* 12H7QQ0 12126000 

J 

0093 *13750O00* 

♦13765000* 13765000 

J 

0098 *U25«100* 

*H2590l0* 14259015 #142590 15**14259060* 14259080 j,4259i50 14266000 

J 

0096 *14254200* 

14254200 14254500 

J 

0102 *15075000* 

#15234000* 15255000 15266000 M5280000* 15280000 152*0000 15296QQ0 15302000 15344000 15350000 

J 

0111 *16314000* 

♦16348000* 16349000 #16349000* 

J 

0112 *16364000* 

#16387000* 16389000 #16392000* 16392000 #16392000* 16393000 

JAZZ 

0102 *15076000* 

*15233012* 15233026 
JEUEN 



0012 *02264100* 

022*5000 02265i00 02265350 02265450 02265600 02265700 0^265850 02265950 

JFC 

0103 *16016000* 

16219000 

0103 *16007Q00* 

16079000 16232000 

JNJ» 

0103 *16023000* 

16453000 

J01NF0 

0003 *01462000* 



16127000 *16128000* l6i3400Q 16138000 16139000 *i6l43000* 16440000 *164«2Q00* 16445000 16447000 16449000 



JOINT 

0107 *16U8000* 



*16127000* 16143000 



JRV 

0103 *16009000* 

16079000 



JUMPCHAIN 

0103 *16085000* 



16097000 16139Q00 16173000 



JUMPCHKNX 

0003 *03058000* 



♦13616000* 14165000 14387000 



JUMPCHKX 

0003 *03059000* 



♦13596000* 14506000 



JUMPCTR 

0003 *01459000* 



14497000 *14499000* 



JUMPLEVEt 

0003 *01485000* 



16260000 16265000 *16269000**16433000** 16435000* 16452000 



JUMPS 

0103 *16431000* 



16455000 16493000 



JUMPV 

0003 *01242000* 



JUNK 

0003 *01430000* 



K 

0003 *0169300Q* 



02091500 5 401000 05414000 O5438OOO 08016000 08999050 09393010 10258100 12102000 *140850O0* 1*254100 
16364000 

K 

0007 *02091500* 

02099000 

K 

0042 *05401000* 

•05405000* 05406000 

K 

0043 *05414000* 

♦05428000* 05429000 



004ft *05438000* 

*05ft44000* 05452000 05454000 *05454000* 05455000 *05457000* 05457000 

K 

0067 *08999050* 

♦08999200* 08999275 *08999275* 08999275 08999350 

K 

0065 *080i6000* 

08033000 08034000 08035000 08094000 08180000 08223000 08232000 



K 

0077 *09393010* 



•09447030* 09447060 



K 

0085 *12103000* 



12103000 12104000 



K 

0082 *10258100* 



♦ 10263200* 10261800 10264200 * 10264200** 10264400* 10264400 



K 

0085 *12102000* 



*12l09000* 12117000 12H800Q 12121000 



K 

0098 *14254200* 

14254200 14254400 

K 

0098 *H254100* 

*1«259010* 14259080 14259090 

K 

0112 *16364000* 

16389000 



KEY 

0003 #04231000* 



04239000 04241000 



KIA5SF 

0003 #01603000* 



05350J00 05350200 *l320j00Q* 13220000 *13226000* 13246000 
13677300 *16000300* 



13278000 #13333500**13342000* 13372000 #13677200* 



KNOT 

0024 #02973500* 



#02974500* 02978500 



0003 *01428000* 

0^477000 
04086000 

*04i45000* 
04207500 
04298000 

*06l48000* 
O63O8OOO 

*07443000* 

♦07493000* 

♦07583000* 

*07604060* 

07727070 

08097000 

*08i50000* 

08190000 

09 3 95000 

♦13264000* 

13752000 

14388100 

15376400 

♦16094000* 

16475000 



0i7i0000 
04102000 
04147000 
04210000 
♦04298000* 
06206000 
07025020 
07444000 

07495 00 
07585000 
07604067 
O8O46OOO 
08106000 
08150000 
08191000 
09396000 
13267000 

*1376SoOO* 
14451200 
15376500 

♦16096000* 



01758000 

04105000 

04149000 

*042i6000 

♦04300000 

06207000 

07079000 

♦07444000 

♦07495000 
♦07585000 

07604085 
08047000 

♦O81O6OOO 
08i52000 
08215000 
09 3 97000 

♦13270000 
13765000 
14461100 
15376600 
16121000 



02091500 
*04lO5O00 
♦04151000 

* 04216000 

* 05038000 

*06207000 
07081000 

* 07459000 

* 07496000 

* 07585100 
♦07604085 
♦08047000 

* 08122000 
08160000 
08221000 
09416000 

* 13273000 
♦13765000 

14461200 

#16032000 

16138000 



02127500 

* 04105000 

* 04151000 
04218000 
05049000 

♦♦06297000* 
07088000 
♦07459000* 

07540000 
07586000 

* 07604090 

* O8O5OOOO 
08124000 

*08i68000* 
♦08221000* 
*132 32000* 
•13277000* 
**14039000* 
14461300 

* 16032000 
16167000 



02182750 

*04l09000* 

♦04172000* 

04223000 

06054100 

06297000 
07411000 
07483500 

♦07540000* 

07597000 

*07604l00* 

♦08050000* 

08127000 

08168000 

08227000 

132 32000 

13360000 

1<*039000 

#14461300* 

♦16034000* 

16172000 



02195000 

04109000 

04172000 

04232000 

♦06054100 

♦06300000 

♦07411000 
07485000 
07545000 

♦O/6OO3OO 
07607l00 
08077000 
08146000 
08169000 
08228000 
132 35000 
13606000 
14041000 

♦14483700 
16070000 
16218000 



02195750 
04119000 
04175000 
04279000 

♦ 06104400 

♦ 06300000 
**0743300O^ 

07487000 

07577000 
♦♦07600440^ 

07606000 
♦08078000* 
*08146000* 

08170000 
♦08231000+ 
*13238000* 

13612000 

14054000 

♦ 14487000 
16088000 
16232000 



02214200 

♦04120000* 

04182000 

04282500 

06104500 

06301000 

07433000 

*07487000* 

*07577000* 

07600800 

076i0000 

08078000 

08147000 

08171000 

09282600 

*132 39000* 

13628000 
*14055000* 

14505000 

M6089000* 

16257000 



02228750 

*04124000 

♦04185000 

04293000 

06104510 

06307000 

#07440000 

07491500 

07579Q00 

07604010 

07727020 

*06069000 

♦08148000 

08179000 

09388000 

13258000 

♦13628000 

14167000 

14602000 

16090000 

16313000 



02421000 

* 04145000 
♦♦04186000* 

04296000 

06148000 

*06308000* 

* 07440000 
07493000 
07583000 
07604040 

*07727050* 

* 06093000 

* 06148000 
*08l90000# 
*09395000* 
*13263000* 

* 13746000 
1*168000 
14603000 
16092000 
16364000 



0003 #01758000* 

01762000 01764000 



0003 #02183500* 

02183750 02186000 03047000 03047100 



I 

0003 *Q*742100* 
01742110 

L 

0007 *02127500* 

•02128000* 02135500 

I 

0003 *01719000* 



I 

0007 *02091500* 

02101000 

I 

0003 *05333000* 

05376100 

I 

0003 *03051001* 



L 

0003 *03020000* 



L 

0003 *03039500* 



L 

0003 *05307000* 

05312000 

L 



0003 *05128000* 

05131000 05132000 



L 

0003 *Q5411100* 



L 

0003 *05123000* 

05134000 

L 

0003 *0S437000* 

054*0000 05441000 05442000 05444000 05458000 

I 

0003 *08999450* 

08999525 

L 

0030 *04232000* 

04241000 *04243000* 

L 

0035 *05050000* 

05051000 05052000 

L 

0035 *05059000* 

05060000 

L 

0035 *05049000* 

♦05092000* 05094000 05098000 

L 

0046 *06064000* 

06065000 



L 

0043 *05415000* 

05418000 

L 

0089 *13360000* 

*13364000* 13366000 

L 

0103 M6475000* 

16476000 *16483000* 

L 

0112 *16364000* 

16391000 16393000 

L 

Oill *16313000* 

16319000 1632*000 16340000 *l6347000* 



UABEL8AT 

0003 *03025000* 



IABELBAT 

0003 *07537000* 

07339000 

LABEUOEC 

0094 *1401«000* 



14019000 *14187000* 



LABELID 

0003 *01206000* 



01479000 05344520 05350120 05350160 06104100 06106300 06l07l00 07047000 07075000 07506000 07553000 
07645000 07664000 13246000 13337000 13734000 14194000 14220000 I5l28i00 15376900 16213000 16253000 
16482100 



LABELR 

0003 *07593000* 



07646000 07741000 



LABELS 

0103 *16156000* 



16177000 16485000 



LABELV 

0003 *01286000* 

14399000 



LABUMONFILE 

0003 #01535000* 



LAMPER 

0047 #06137000* 



06164000 06166000 06168000 *06l79QOQ* 



LASS 

0102 #15076000* 



#15276060* 15276J60 



LAST 

0102 #15076000* 



*153Q200Q* 15342000 



LASTCRDPATCH 

0003 *01001500* 



LASTENTRY 

0003 *0U76000* 



04170000 *04189000* 04208000 04210000 042H000 #04214000* 04214000 14038000 



LAST6T 

0103 *16003Q0Q* 



16089000 16266000 



LASTGT 

0101 *14420000* 

14436000 



IA5TINF0 

0003 *01619000* 



02724000 02725000 02726000 *02726000* 05350200 *09Q33Q00* 10261000 l0g63t00 10263110 10264800 13222000 

•13290000* 13309000 *l33llOOQ* 13347000 13348000 13408000 13755500 14079000 1*083000 14259150 14320000 
•14330000* 14330000 *143730Q0* 14421000 *14463Q00* 16000700 16445000 *i64470Q0* 



LAbTINFOT 

0094 *14029000* 



*H330000* 14373000 14463000 



UAbTRESULT 

0082 *10258000* 



♦10262000* 10272000 *l0276000* 



LASTSEQROW 

0003 *01570000* 

02214250 
09033000 



02226000 
O9O342OO 



0222 8 0°° 
09034500 



02234750 
09253500 



02368000 
09254000 



02410000 
09255000 



02485000 
Q9J84100 



02602800 
09386000 



05039500 05045000 07086400 



LASTSEQUENCE 

0003 *01569000* 

02214250 
09033000 



02226000 
09034200 



0222 80 °0 
09034500 



02234750 
09J53500 



02368000 
09254000 



02410000 
09255000 



02485000 
09384100 



O26O28OO 
09386000 



05039500 05045000 07086400 



LA5TUSED 

0003 *01391000* 



02194500 #02204000**02209250* 02212000 02212250 *02212750* 022127 
*0 24 38000**0 2458000**0 2722000* 2900000 *0 290 1000**0 70 30000**090 290 



02212750 02228050 02234000 *02332000**024300QO* 
00**09037000* 09282000 



LBO 

0003 *01645000* 



IBP 

0094 *14023000* 



LBU 

0003 *01646000* 



tCARD 

0008 *Q21910Q0* 



02191250 *02194750* 



UCH 

0003 *0U30000* 



02129500 02193250 *02202000**02204000**0220900Q* 02213000 *022i4000* Q22i4250 02214500 *022l5750* 0222*250 
02226000 02228i50 02232000 02233500 02234750 02235750 02368000 02369000 024i0000 02485000 02602800 
Q2?l6O00 02717Q00 *027l9000* 02902000 *02903000* 02904000 02905000 *07025010**07025o3o* 



0003 *Q20Q5000* 



02005000 02006000 



0003 *01756000* 



01756000 0i767000 01774000 



LCR 

0016 *02320200* 



02320200 02320600 02321000 



LOGS 

0003 *01299030* 



05248000 05250000 09^5500 13252500 



LOOT 

0047 *06137000* 



06144000 06156000 06^8000 06160000 06162000 06170000 06172500 *06i78000* 



LE^TPAREN 

0003 *01212000* 



02975000 06069000 064l5000 07409000 07437000 07768ll0 10264100 12007000 12114000 13753000 14137000 



14259020 14326000 16003000 16125000 16462400 



LENGTH1 

0016 *02360000* 



02364000 *02374000* 



IENGTH2 

0016 *02360000* 

•02380000* 



LENGTH3 

0016 *02360000* 



02364000 02381000 



IENQTH4 

0016 *02360000* 



02364000 *02399000* 



LEMGTH5 

0016 *02361000* 



02364000 *02476000* 



LENGTH6 

0016 *02361000* 



02365000 *02518000* 



UENGTH7 

0016 *02361000* 



02365000 *02569000* 



LENGTHS 

0016 *02361000* 

02574000 



LENGTH9 

0016 *02361000* 

02365000 02575000 



0003 *01655000* 
08050000 



LEVEL 

0003 *01402000* 



05208000 05344400 05350^00 05350120 13339000 13371000 13677iOQ 14053000 *14053000* 14220000 14307000 
14318500 M4323000* 14323000 14384100 14387000 14389000 144H300 14415300 14451000 14461100 14477000 
14478000 14497000 14499000 *14500000* 14500000 14603000 *14604000* 14604000 16005000 



LEVEL 

0103 U6005000* 



16171000 16265000 



LEVELF 

0003 *01605000* 



•13204000* 13339000 13371000 14307000 



LFC 

0003 *0l648000* 



LFTBRKET 

0003 *01263000* 



05274000 06139000 06316000 06^21000 10264100 12114000 13391000 14259020 1&233000 



LFTPAREN 

0103 *16003000* 



16125000 16482400 



LFU 

0003 *01649000* 

H167000 



LGTFLD 

0103 *16004000* 

16172000 



LIB 

0009 *02202500* 



LIN 

0003 *01559010* 

02l8i000 02181250 02i82750 02194000 02195000 02195750 02214200 

04150000 05038000 05039500 05039600 05044000 05046000 05096000 

05325470 05325480 05325490 06122000 06123000 07025020 07086300 

09387000 09388000 09389500 13653000 13653500 13675000 13676000 



02226750 02228750 
05097500 05099000 
07086500 09884100 



02421000 0*149000 
05325450 05325460 
09384500 OV386OOO 



UN 

0040 *05325040* 



05325090 05331000 05333000 



LINE 
0003 



*01558000* 

0i829000 O2181OOO 02i8i250 02195000 02195750 0221*200 02228750 

02265650 02265750 02265900 02266000 02421000 02464000 04150000 

05087000 05088000 05089000 05090000 05097500 05099000 05325490 

07025020 O7O865OO 09384500 09387000 09389500 09390000 13*53500 



02264950 02265i50 02265300 02265450 

04279000 04282500 05039600 05046000 

05427000 05432000 05434000 06123000 

13676000 14023100 14461500 14493500 



LINE 

0003 *02183500* 

02164250 



LINE 

0034 *05016000* 



05019000 05021000 05024000 



LINE 

0035 #05067000* 



05069000 05071200 05076000 05085000 05246000 05247000 



LINE 

0054 *07038100* 



07038200 O7O383OO 07391000 07536000 07537000 07647000 



LINE 

0076 *09378000* 



09379Q00 09380000 09393060 09393250 



LINK 

0003 *01154000* 

02725000 04166000 05124000 05132000 05189000 
06J90000 07595000 09133800 09134000 13207000 
14448000 14470000 15080000 16087000 16443000 



05233000 
13232000 



05234000 
13286000 



05447000 
13308000 



05448000 
13361000 



06079000 
13362000 



06189000 
13364000 



LINK 

0028 *04166000* 



♦04182000* 04185000 



LINK 

0062 *07595000* 



07601000 07604040 07604050 07604060 07604070 07604090 07605000 07607000 07607100 07608000 07609000 



LINK 

0106 *16087000* 



*16092000* 16094000 



LINKC 
0003 



♦ 0U56000* 

01721000 
05409000 
09414070 
13677300 



02212250 
05426000 
09418000 
14483400 



02876000 

05428000 
09419000 



05006000 

05430000 
09433000 



05009000 

05431000 
09447060 



05325470 

05449000 
10251000 



05350180 

05450000 
10264800 



05350200 

07397400 
12117000 



05402100 

07397500 
13281000 



05405000 

09393110 
13310000 



05407000 

09393330 
13593000 



LINKF 

0003 *01606000* 



•13207000* 13768000 13769000 14310000 14314000 14315000 



LJNKP 

0089 *13359000* 



♦13361000* 13362000 13364000 



LINKR 

0003 *01155000* 

0j72i000 
05409000 
09414070 
13303000 



02212250 
05426000 
09418000 
13310000 



02875000 
05428000 
09419000 
13593000 



05006000 
05430000 
09433000 
13677300 



05009000 
0543J000 
09447060 
14483400 



05325470 
05449000 
10251000 



05350160 
05450000 
10254000 



05350200 
07397400 
10264800 



05402100 
07397500 
12117000 



05405000 
09393090 
13281000 



0540^000 
09393280 
13302000 



LINKR 



0079 *09393280* 

09393350 99393400 09393430 

UINKR 

0078 *09393090* 

09393130 09393170 09393190 

LINKT 

0089 *13359000* 

*1336j000* 13362000 13364000 13365000 *13366000* 



LINKTOG 

0003 *01399000* 



04100000 #04213000**04222000**04295000* 06021000 *Q6Q22000* 



LISTABIT 

0003 *0t000970* 



01001260 02194250 02511000 02602500 



LISTATQG 

0003 *01001260* 



0219425Q 02602500 



LISTBIT 

0003 *01000980* 



01001270 02402000 02602500 *09028000* 



LISTER 

0003 *01001570* 



02195000 02195750 022U200 02464000 *02602500* O5O36OOO 07025020 07086100 *09028000* 13652000 13674000 
14461500 14493500 



LISTID 

0003 *OU8iOO0* 



UIST06 

0003 *OJ001270* 



026Q2500 09028000 



USTPBIT 

0003 *01000990* 



0J001280 02195000 02228750 02480000 



LISTPTOG 

0003 *01001280* 



02195000 02228750 



LITERAL 

0003 *04003000* 

04004000 

LITNO 

0003 *01210000* 

02850000 05275000 05a7700Q 053446i0 06085000 0609^000 063J7000 0631*000 06321000 07600^00 0^665000 
07666500 077 2 7050 07994000 13392000 l52?60i0 i6n9000 16204000 16212500 16326000 16341000 16374000 
16410000 16435000 16482300 

LITV 

0003 *0U50000* 

16372000 16381000 

LN 

0093 M375Q000* 

*13755500* 13773000 

LNO 

0003 *01656000+ 

04545000 

LNG 

0003 *01657000* 

04H2000 

LO 

0094 *14029000* 

♦14304000* 14496000 



IOC 

0101 *14420000* 

14436000 



LOG 

0103 *16003Q00* 



16070000 16163000 16255000 



LOCAL 

0003 *05206000* 



05210000 *05210000* 07516000 07554000 07599000 



LOCALV 

0003 *01249000* 

14396000 



LOCBEGIN 

0094 *14022000* 



10CFL0 

0103 *1600*000* 

16138000 



LOClID 

0003 *0U79000* 



13755000 14409000 14411200 I44i5200 14425000 l6l98000 l63l7000 1632*000 16330000 16335000 16340000 
16368000 16406000 16482100 16482300 16482500 



tocv 

0003 *01247000* 



16336000 16339Q00 



too 

0003 *01658000* 



04523000 05201000 05227000 05316000 06172500 07071000 07090000 08079000 15233010 15267000 1*306000 
15344100 15351300 



LOLO 



0094 M4030Q00* 
*14054000* 

L0NQI0 

0102 *15076100* 



15303000 15344000 15351000 



LOR 

0003 *01659000* 



UOWER 

0003 *05299000* 



05304000 



IPRT 

0003 *01483000* 



LOV 

0003 *01660000* 



US 

0093 M3750000* 



•13752000* 13765000 



LSQ 

0076 *09364000* 

09366000 



LSS 

0003 *01661000* 



ISTRTN 

0003 *01430000* 



LSTSEQ 

0034 *Q501600Q* 



05020000 05023000 



LT*PE 

0008 *02191000* 

02t«1250 *02195500* 

LVL 

0003 *0U51000* 

05H6000 05208000 07432000 13204000 14220000 16005000 I6i7l000 16265000 

11 

0035 *05049000* 

♦05096000* 05099100 

Li 

0041 *05334000* 

LI 

0047 *06128000* 

06133000 *06152000* 

Ul 

0063 *07658000* 

07667500 07672500 07673000 *0767500Q* 

Ul 

0064 *07713000* 

07720000 *07729000* 

LI 

0069 *09025000* 



LI 



0084 *taoo5ooo* 

*120Q9000* 12057000 

LI 

0091 *13635000* 

13639000 13641000 

11 

0093 *13751000* 

+ 13754000* 1376U00 13762000 

11 

0102 *15076000* 

♦15092000* 15116000 

LI 

0103 *16475000* 

16482400 *16484000* 

LI 

0112 *16365000* 

16372000 *16397000* 

H 

0111 *16313000* 

♦16349000* 16353000 

LlO 

0047 *06128000* 

06133000 06152000 

LlO 

0064 *077i3000* 

07720000 *07734000* 



LlO 

0103 *16475000* 



16476000 *16493000* 



Lll 

0047 *06129000* 



06134000 *06157000# 



in 

0064 *O77HO00* 



07721000 07729000 



112 

0047 *06129000* 



06134000 06152000 



118 

0064 *Q7714000* 



07721000 *07736000* 



113 

0047 *06129000* 



06134000 06152000 



113 

0064 *07714000* 



07721000 07729000 



114 

0047 #06129000* 



06134000 *06159000* 



LI* 

0064 *07714000* 

07721000 07729000 

U13 

0047 *06129000* 

06134000 06159000 
113 



0064 *O77UO00* 

07721000 07729000 

0047 *06129000* 

06134000 06152000 



116 

0064 *07714000* 

07721000 07729000 



117 

0047 *06129000* 

06134000 06152000 



117 

0064 *07714000* 

07721000 07729000 



0047 *06129000* 

06134000 *06161000* 



LIB 

0064 *07714000* 

07721000 0773^000 



L19 

0047 *06129000* 

06134000 06161000 



LI* 

0064 *0771«000* 

07721000 07734000 

L2 

0041 *05334000* 

•05373000* 



12 

0047 *06128000* 

06133000 06152000 

12 

0064 *077i3000* 

07720000 07729000 

L2 

0084 *12005000* 

12018000 12048000 *12055000* 

12 

0093 *137bl000* 

13753100 13754000 *13760000* 

U2 

0103 *16475000* 

16481000 16482200 *16485000* 

U20 

0047 *06129000* 

06134000 06152000 



120 

0064 *07714000* 

07721000 07729Q00 



U21 

0047 *06130000* 

06135000 06152000 



L21 

0064 *07715000* 

07722000 07729000 
122 



0047 *06130000* 

06135000 *06163000* 

122 

0064 *07715000* 

07722000 *07738000* 



123 

0047 *Q6l30000* 



06135000 06163000 



L23 

0064 *07715000* 



07722000 07738000 



L2« 

0047 *06130000* 



06135000 06152000 



L2<* 

0064 *07715000* 



07722000 07729000 



125 

0047 *06130000* 



06135000 06152000 



L25 

0064 *077l5000* 



07722000 07729000 



126 

0047 #06130000* 



06135000 06163000 



126 

0064 *07715000* 



07722000 07738000 



127 

0047 *06i30000* 



06135000 06163000 



127 

0064 *07715000* 



07722000 07738000 



1.28 

0047 *06130000* 



06135000 06152000 



128 

0064 *07715000* 



07722000 07729000 



129 

0047 *06130000* 

06135000 06152000 

129 

0064 *07715000* 

07722000 07729000 

13 

0047 *06128000* 

06133000 06152000 

13 

0064 *Q7713000* 

07720000 07729000 

U3 

0084 *12005000* 

12026000 *12056000* 
13 



0093 *1375i000* 

*13767000* 13770000 



13 

0103 *16475000* 



16*76000 U6486Q0Q* 



U30 

0047 *06i30000* 



06135000 06163000 



L30 

0064 *Q7715000* 



07722000 07736000 



131 

0047 *06131000* 



06136000 06163000 



L.31 

0064 *07716000* 



07723000 07738000 



L32 

0047 *06131000* 



06136000 06153000 



L32 

0064 *07716000* 



07723000 *07740000* 



133 

0047 *06131000* 



06136000 *06165000* 



U33 

0064 *07716000* 



07723000 07730000 



134 

0047 *06131000* 



06136000 *06167000* 



L.3* 

0064 *07716000* 



07723000 07730000 



135 

0047 *06131000* 



06136000 06165000 



L35 

0064 *07716000* 



07723000 07730000 



L36 

0047 *06131000* 



06136000 06167000 



136 

0064 *07716000* 



07723000 07730000 



L37 

0047 *06131000* 



06136000 *06173000* 



137 

0064 *07716000* 

07723000 07730000 

U38 

0047 *06131000* 

06136000 *06169000* 
L38 



0064 *07716000* 

07723000 *07742000* 

U3V 

0047 *06131000* 

06136000 *06171000* 

13* 

0064 *07716000* 

07723000 07730000 

U 

0047 *06128000* 

06133000 06152000 

1.4 

0064 *07713000* 

07720000 07729000 

L4 

0103 *16475000* 

16476000 *16487000* 

L40 

0064 *07716000* 

07723000 *07744000* 

L41 

0064 #07717000* 

07724000 07770000 



142 

0064 *07717000* 

07724000 *07752000* 



U43 

0064 *07717000* 

07724000 *07754000* 



0064 *07717000* 



07724000 *07756000* 



145 

0064 *07717000* 



07724000 *07758000* 



U6 

0064 *07717O0O* 



07724000 *07769000* 



1.47 

0064 *077J7000* 



07724000 07769000 



148 

0064 *07717000* 

07724000 07769000 

L4V 

0064 *07717000* 

07724000 07770000 

15 

0047 *06128000* 

06133000 06152000 

L5 

0064 *07713000* 

07720000 07729000 

L5 

0103 *16475000* 

16476000 *16488000* 
L50 



0064 *077l7000* 

07724000 07769000 



U51 

0064 *07718000* 



07725000 *07760000* 



L52 

0064 *077i8000* 



07725000 *07762000* 



L53 

0064 *07718000* 

07725000 *07764000* 

154 

0064 *07718000* 

07725000 *07766000* 

L6 

0047 *06128000* 

06133000 06152000 

L6 

0064 *07713000* 

07720000 07729000 

16 

0103 *16475000* 

16476000 16489000 

17 

0047 *06128000* 

06133000 *06155000* 

17 

0064 *07713000* 

07720000 *07732000* 



17 

0103 *16475000* 

16476000 16482500 *J6490000* 

18 

0047 *06128000* 

06133000 06152000 

18 

0064 *07713000* 

07720000 07732000 

16 

0103 *16475000* 

16476000 *16491000* 

19 

0047 *06128000* 

06133000 06152000 

19 

0064 *07713000* 

07720000 07729000 



19 

0103 M6475000* 

16476000 M6492Q00* 



M 

0044 *05438000* 



*05441000* 05442000 05443000 05444000 05445000 



M 

0042 *05401000* 



*05404000**05407000* 05407000 *054Q9000* 05409000 05409300 05409400 



0041 *Q5343000* 

• 05350100* 05350H0 

M 

0077 *09393010* 

*09447Q40* 09447050 



MACRO 

0003 *01487000* 



09215000 16346000 1634*000 



MACRO 

0003 *10228000* 



10263600 10276500 



MACROID 

0003 *01717800* 



02913000 *12107000**12127000* 133q5200 133075QQ *1*2G5900** 1«266 100* 



MAKEUPACCUM 

0003 *01627000* 



13333500 13342000 *1336800Q* 16000600 



MARK 

0003 *01615000* 



I4n7000 *1431*000**143 1 9000* 14333300 14334000 i43?4000 14430000 14451200 14463000 



MAXINTRINSIC 

0003 *01299400* 



01299500 09253100 09414120 



MAXROW 

0003 *01684000* 



MAXSAVE 

0003 *01598000* 



MAXSTACK 

0003 *01683000* 



13230000 *J3231000* 13231000 H2770Q0 *14502Q0Q* 



MAXSTACKO 

0094 *14029000* 



•14277000* 14502000 



MAXTLCR 

0003 *01331000* 



02439000 *02456000* 



MCPBIT 

0003 *01001000* 



01001290 02397000 



MCPTOG 

0003 *01001290* 



MCPTYPE 

0003 *Q1561410* 

09430060 

MD6SC 

0069 *09005000* 



09034200 0925S500 09254000 09255000 094^8000 094l9l00 



MEOigM 

0003 *01001580* 

02J82750 02195000 02i«5750 *02203250**022Q4250**02205500**022i4 jOO* 02214200 02228750 02421000 0*038000 
07025020 

MERGEBIT 

0003 *OJ001010* 

01001300 02425000 *02425500* 02425500 02426000 02427000 02428000 02*35000 02436000 
MERGEOPTION 



0016 *Q2363000* 

02428000 *02437000* 

MERGETOG 

0003 *01001300* 

02425500 02427000 02428000 02436000 



MIN 

0005 *01622000* 



*01828000* 01834000 



MKABS 

0003 *02022000* 



02023000 02202000 02202050 02214000 Q22l575Q 02216500 022l7750 02226000 024i0500 024U000 02456000 
02485500 02486000 02903000 0509l000 07025010 07025030 08999i75 08999200 09400000 09401000 



MK5 

0003 *0l662000* 



07408000 07434000 13761000 13765000 



MK*T 

0093 *13750000* 



♦13752000**13761000* 13761000 13764000 



MODE 

0003 *01402000* 



04175500 04184000 042l2l00 04223l00 05H5000 05345000 07397200 07600410 07748000 08093000 14303000 
•14303000* 14478000 *14501OQ0* 14501000 



MON 

0003 *0U47000* 

16254000 



MQNITQRDEC 

0094 *14014000* 



14019000 *14142000* 



MQNITORV 

0003 *01291000* 



MOVE 

0003 *02054000* 



02212250 02366x00 02412000 02487000 02602600 02916000 04147000 05039500 07029000 07669000 0tt999075 
08999550 06999575 08999700 09393130 09393170 09393190 0*393350 09393400 09393430 09433000 09447060 
13281000 13310000 13651000 13746000 14259000 14440000 16495100 



MOVE 

0067 *08999075* 



08999100 08999275 08999350 



MQVECHARACTERS 
0003 *02045000* 



02705000 07668500 16349000 16392000 



MOVECODE 

0003 U3683000* 



MQVEIT 

0021 #02638000* 

*02704000* 



MRCLEAN 

0003 *01379000* 



04164000 *09040000* 



MUL 

0003 *01663000* 

08049000 



MULOP 

0003 *01278500* 

12022000 

MYCLASS 

0003 *01001590* 



♦02968000* 02971000 02974000 #02974500* 02975000 02976500 02*77500 *02978500* 02982000 02983000 



MO 

0040 *Q5325080* 

03325340 05325320 

Ml 

0040 *05325080* 

05325250 95325350 

M2 

0040 *05325080* 

05325260 05325360 

M3 

0040 *Q5325080* 

05325270 05325380 

M4 

0040 *05325080* 

05325280 05325390 

M5 

0040 *05325080* 

0532529Q 05325400 

M6 

0040 *05325080* 

05325300 05325410 

M7 

0040 *05325080* 

05325310 05325420 

N 

0003 *Q1693000* 



0i759000 02249000 04204000 04237000 05334200 09393000 iO258i00 J3221000 13673150 



0003 *01737350* 

01737350 01737450 



N 

0003 *0i759000* 



01781000 

N 

0003 *Q2041O00* 

02041000 02043000 

N 

000$ #02045000* 

02046000 02050000 

N 

0003 *05325010* 

053254*0 05325470 05325480 

N 

0012 *02264700* 

02264700 02264850 03036000 03037000 03047000 03Q47iO0 03050000 04H5000 04H6000 

N 

0012 *02264400* 

02264400 02264550 

H 

0011 *02249000* 

*02251000* 02252000 02255000 02259000 

N 

0029 *04204000* 

04208000 04209000 04221000 04223000 

N 

0035 *OS067000* 

05067000 05075000 05246000 05247000 05271000 05298000 05299000 



N 

OQ30 *04237000* 



•04238000* 04239QO0 *0424Q00Q* 04240000 



N 

0040 *Q5325040* 



05325050 05325230 



N 

0046 *Q6064000* 



06064000 06067000 07035000 07036000 



N 

0043 *05415000* 



05415000 05421000 05437000 



N 

0041 *05334200* 

05334400 05334600 

N 

0054 *O7038lO0* 

07038100 07038500 
N 



0067 *08999075* 

08999075 08999i00 08999450 



N 

0063 *07653500* 



07653500 07655500 



N 

0077 *09393000* 



•09400000* 09402j00 09403000 09405500 09406000 09407000 *094l3000* 09417000 09420000 *09430050* OV43OO75 



N 



0076 *09378000* 

09378000 09381000 09393060 09393240 



N 

0077 *09393700* 

09393700 09393730 10228000 



N 

0077 *09393240* 

09393300 



N 

0087 *U221000* 

*13258000* 13265000 13271000 

N 

0082 *10257100* 

10257100 10257300 



N 

0082 *10258100* 

*10263110* 10264700 10264900 



N 

0092 *13673150* 

13673300 13673400 



NAMEOEC 

0094 *14015000* 

14020000 M4161000* 



NAMEIO 

0003 *01205200* 



07046000 07048000 I4i6l0j0 1416H20 l5076t00 15276020 15276090 i5295i00 15303000 15344000 15351000 



NAMEV 

0003 *01295000* 



ncu 

0003 *01624000* 



13228000 M3228000* 14056000 *14057000* 



NCIIO 

0094 *14031Q0Q* 

M4056000* 



NCR 

0002 *00511000* 



005U000 00512000 



NCR 

0003 *01330000* 



02128500 0212'000 02^9500 *022l3000**022 1*000**02225250 **022290Q0* 0222*000 02230750 *02230750* 024i0000 
02485000 02665000 02680000 02697000 *0 2 720000* 0273lOOO 02M5000 02750000 02753000 02786000 02791000 
02807000 02813000 02888000 02902000 *02903000* 



NCR 

0003 *01756000* 



0J756000 0i76l000 01768000 0i7730OO 0i780000 



NCR 

0007 *02089500* 

02126000 



NCR 

0003 *02183500* 



02J83750 02184500 



NCRV 

0007 *02090000* 



020V0500 02092500 02102000 02124500 



NE« 

0003 *01664000* 



NEK 

0076 *09364000* 



09364000 09368000 



NESTBIT 

0003 *01001020* 



01001310 02472000 



NESTCTR 

0003 *01722000* 



♦05375100* 05375i00 *14481200* 14483400 



NEMCUR 

0003 *01722000* 



♦05402200* 05402200 05409jOG 05409300 *054Q9300* 



NESTFORM 

0043 *05415000* 



05426000 05431000 



NESTLEVEL. 

0003 *0l484000* 



#16126000* 16126000 16J42000 M6H2000* 16166000 16171000 16260000 16265000 



NESTOG 

0003 *01001310* 

01723000 



NE8T0G 

0003 *01723000* 



07397100 14483100 14601000 



NE5TPRT 

0003 *01724000* 



05402000 05402200 05402300 05404000 05409200 05409500 05425000 05425400 05430500 05447000 OU448000 
14483300 



NESTS 

0103 *16H5000* 



16144000 16484000 



NESTSORT 

0003 *0541U00* 



05425200 *05437Q00* 05442000 05443000 



NEW 

0003 *02016000* 

02018000 



NEWBASE 

0003 *Q10Q149Q* 



021*2000 *02 19 2500**0 258 3000**090 28920* 



NEWBIT 

0003 *01001030* 



0i00l320 02193750 02388000 09J82500 



NEWINCL 

0003 *01001330* 



NEWINCLBIT 

0003 *01001040* 

01001330 

NEWINX 

0003 *0l000860* 



NE^TAPBgF 

0003 *01490510* 



NEWTAPE 

0003 *01560000* 

02194000 09282500 
NEWTOS 



0003 *01001320* 

02193750 09282500 

NEXT 

0003 *02956000* 

♦02968000* 02968500 02974000 02*74500 02978500 15076000 



NEXT 

0102 *15076000* 



♦15253000* 15292000 



NEXTINFO 

0003 *016£0000* 



02265350 *02726000**09033000* iQ250000 J0254000 1O261QOO 

13302000 13303000 13304000 #13305000* 13308000 13309000 

♦13594000* 13394000 13770600 14055000 14166500 14217000 
♦14463000* 16442000 



10263000 ♦i0263i00* 10285000 ♦ i02B5000^ 1 J29 lOOO ♦ 

13310000 133H000 13312000 ♦13312000* 13593000 
14319000 14329000 *t4330000** 14373000* 14375000 



NEXTLINK 

0062 *07596000* 



07604050 07604080 07604090 07607000 07609000 



NHl 

0003 ♦01689000* 



*0268i000**0278S0OO* 02800000 O28O1OOO 02833000 02835000 02838000 02840000 120i5000 



NJNFOO 

0094 *14030000* 



♦14055000* 14600000 14601000 



NIAB 

0101 *14418000* 



*14422000**14437000* 14437000 



NtO 

0003 *01689000* 



*02681000**02785000* 02800000 02833000 02835000 02838000 02840000 12014000 



NLOC 



0101 *14418000* 

•14422000* 14433000 *14433000* 14451200 

NWOCS 

0094 *14022000* 



NOOIMPART 

0003 *01532000* 



07098000 07412000 



NQHEAOING 

0003 *01001480* 



•0J836000* O2183OOO 02i95000 02195750 022l4200 02228750 02264950 02421000 05039600 05046000 QS325490 
07025020 #09028050* 09362000 13653500 13676000 



NQNLITNQ 

0003 *01209000* 



02851000 02924000 07604J20 07665000 07666500 08032000 13226000 



NONSAVNDX 

0077 *09393000* 



09405500 09406000 *09407000* 09407000 09427100 



NOK 

0003 *01665000* 



04212100 04223j00 07078000 08094000 13752000 16012000 



NO? 

0103 *16012000* 



NORMAL 

0032 *04311010* 



043H060 04311080 *043Ul20* 



NOTOP 

0003 *01272000* 



02964000 02974500 06146000 



NUMBEREND 

0021 *Q2640000* 



02687000 *02845000* 



NUMBERS 

0007 *02091500* 



02096000 02102500 02U7000 



NUMIE 

0065 *080e0000* 



08095000 08162000 08165000 



NXTELBT 

0003 *01319000* 

02644000 029i000O *029j2000* 029^000 *029 i7000**08 n0000**08 174000**09038000* 10258200 10263400 10263500 
♦10263500* 10277000 10282000 12112000 *12H30Q0* 12113000 12125000 

Nl 

0005 *01822000* 

*0l828500* 01835500 

N2 

0005 *01822000* 

♦01828500* 01835500 

OCN 

0087 *13221000* 



♦13249000* 13250000 13252500 *13257000* 13262000 13263000 



OCTALWORDS 

0012 *02264400* 

0226^650 02265100 022$5250 02265700 02265950 

OCTIZE 

0003 *02001838* 

02001652 02001854 02686000 
OK 



0055 *07393100* 

07397400 *07397600* 

OtOL 

0062 *07596500* 

*07597000* 07600800 *0760404Q* 07604067 07604070 07604100 

OUUSEO 

0003 *017«1200* 



01741200 017A1300 



OMIT 

0003 *02183500* 



02183750 02186750 



OMITBIT 

0003 *0l00l050* 



0i00i340 02194250 02l95000 02195750 022^200 02228750 02235250 02*21000 0242U00 07025020 



OMITTING 

0003 *010013<»0* 



0218275Q 0219*250 02195000 02195750 02214200 02228750 02235250 02421000 07025020 



OPARSIZE 

0003 *01000902* 



01000904 02316000 02331000 Q94J4Q22 0941*026 



OPCLASS 

0025 *02981000* 



♦02982000* 02983000 02983500 02984000 



OPCLASS 

00*5 *06042000* 



*06048000* 06052000 06055000 



OPCODE 

0112 *16366000* 

16379000 



OPUC 
0065 *oeoi6ooo* 



08J08000 08130000 08217000 



OPERATOR 

0003 *01271000* 



060*2000 06076000 



OPERATOR 

0003 *04011000* 

o«oiaooo 



OPtRATOR 

0003 *04006000* 

04007000 

OPERATOR 

0003 *04030000* 

04034000 

OPERATOR 

0045 *06042000* 



•06044000* 06054000 



OPERATORS 

0003 *01299200* 

06071000 



OPINX 

0003 *01000800* 



*023H000* 02312000 *023l2000* 02314000 02316000 02317000 02334000 02338000 02342000 02356000 



OPTJONLENGTH 

0016 *02364000* 

02373000 
OPTIONS 



0003 *010Q0904* 



02312000 023l«000 023j7000 02331000 02334000 02338000 02352000 02356000 
09414026 



02426000 09251208 0V4j402« 



OPTJONWORO 

0003 *01000910* 

01001210 01001220 01001230 

01001320 O1OOI33O 010013*0 

01001440 0l00l*50 0100146Q 

02231500 02232500 02235250 

*02357000* 02421000 02425500 

04278500 04297000 05039600 

07025020 O7O865OO 09028000 

094l40i0 99421000 09430050 
14493500 



01001240 
01001350 
02191500 
♦02330000* 
02427000 
Q5O46QQO 
09253030 
09447010 



01001250 01001260 01001270 01001280 01001290 

01001360 0100U70 01001380 01001390 01001400 

02193750 02194250 021*5000 02195750 02214200 

02335000 *02335000**02339000* 0233*000 02353000 

02428000 02436000 Og533000 02577000 02602500 

O5O48OOO 05097500 05099000 05325490 05350i00 

09253100 09282500 09*84500 09387000 09389500 

1365H00 13652000 13653500 13674000 13676000 



01001300 
01001420 
02228100 
*02353000* 
04148000 
05376100 
09394100 
13677100 



01001310 
01001430 
02228750 
02357000 
04150000 
06123000 
09405000 
14461500 



OROP 

0003 *01275000* 



02965000 02984000 



OUTOEC 

0094 M4Q14000* 



14019000 14158000 



OUTPUTSOURCE 

0003 *02190500* 



02196500 02230500 02235000 



OUTV 
0003 



*0l289000* 



OWNERR 

0094 *14013000* 



14Q18000 *14135q00* 



OWNV 

0003 *01280000* 



13383000 13723000 14161040 



0003 *0l489000* 

054H100 12102000 13750000 *14335000* H387000 14430000 14451200 14463000 

P 

0003 *02635000* 

02644000 02917000 *029l70QQ* 02920000 02923000 02924000 

P 

0035 *05050000* 

05050000 05052000 05055000 

P 

0035 *05059000* 

05059000 05061000 

P 

0043 *05414100* 

05425300 05425400 

P 

0085 *12102000* 

*12108000* 12126000 

P 

0093 *1375O000* 

#13752000* 13755000 13761000 *13761000* 13761200 #13761200* 13767000 

PACK 

0003 *04270000* 



0*276000 04296000 



PACKIN 

0082 *10258300* 



10264000 10264200 10264400 10264420 *102649l0* 



PACKINFO 

0083 MQ236000* 



10240000 10251000 10254000 



PAN 

0076 #09364000* 

09386000 



PANA 

0003 #03021000* 



06186000 *06413000* 0641^000 



PARM 

0098 *H254200* 



14254700 14259080 



PAUSE 

0003 *Q3014000* 



06035000 06181000 #06313000* 06335000 



PA5SF0RMAT 

0003 #05214000* 

05227000 



PCTR 

0054 #07038000* 



#07040000* 07042000 #07094000* 07094000 07098000 



PD6.S 

0003 *01299020* 

13746000 

PEN 

0076 #09370000* 

09377000 09388000 

PERCENT 

0021 *02637000* 

02641000 *02731000* 02906000 
PERIOD 



0003 *0126*000* 

06105000 O61O61OO 063*0000 07021000 07026000 151U000 15233003 15276140 15339000 

PERMANENT 

0003 *Q5333O00* 

053*5000 

PINF00 

009* *l*026000* 

*1*375000* 1*471000 1*483000 1**89000 

P*J 

0003 *01617000* 

133**000 *133**000* 1*073000 1*085000 l*u7000 *l*12000Q* 1*120000 *1*323000* 1*333300 1*33*000 1*335000 
1*3*9000 1*36*000 1*37*000 *i*387000* 1**11300 1**15300 

PLUG 

0065 *Q802Q000* 

08U6000 08188000 08213000 08218000 



PN 

0093 *13750600* 



*l375ll00**1376lil0* 13770000 M377060Q* 13773000 



POINTER 

0087 *13219000* 



♦13222000* 13223000 1322*000 13229000 132*0000 #132*0000* 132*9000 13255000 13257000 13263000 1327V000 
13281000 1328*000 13286000 *i3287000* 13287000 132^0000 



POL 

005* *07037000* 



*07052000* 07059000 



POLISHER 

0003 *03009000* 



*06060000* 06170000 07Q5200Q 07512000 07743000 



POUSHV 

0003 *012U100* 



07052000 07511000 13338000 

PCJRS 

0003 *05325010* 

05325460 95325470 05325480 

PORS 

0040 *05325040* 

05325050 05325090 05331000 05333000 

POSITION 

0003 *04270000* 



Q427J000 0«2?3000 043H000 04500000 04503000 04505000 05008000 



PRIMARY 

0003 *03005000* 



06016000 O6O1SOOO 06023000 O6O35OOO 06049000 #06126000* 0&147000 06l72000 O6181OOO 06182000 07076000 



PRINT 

0092 *13661000* 



13673000 13675000 



PRINT 

0091 *13633000* 



13643000 13653000 



PRlNTCARO 

0003 *02182500* 



02195000 02195750 02214200 02228750 02421000 07025020 



PRINTDOILARBIT 
0003 *01001060* 



01001350 02228750 02377000 



PRINTDOUARTQG 
0003 *01001350* 

02228750 



PRL 

0003 *Q1666000* 



PROAO 

0094 *14Q32000* 



*10313000**14320000* 1446H0Q 14476000 14489000 



PRQADO 

0003 *01613000* 



14037000 *14476000* 14602000 



PROCEDUREDEC 
0094 *iaoisooo* 



14020000 14137700 *1427000Q* 



PROCID 

0003 *0U87000* 



07399000 07404000 13278000 14284000 14292000 



PROCSTMT 

0003 *03029000* 



06162000 *0739l000* 07425000 07735000 



PROCV 

0003 #01293000* 



PROGOESCBIDR 

0003 *03047000* 



♦05245000* 05255000 07677000 13252500 13?4600Q 1446H00 



PROGRAM 

0003 #09003000* 



09446000 16495200 



PROINFO 

0003 *01608000* 



07090000 13677200 13677300 14304000 *l43l4000 **i4320000* I4388t00 144H200 144H300 14415200 14415300 



14457000 14461200 14470000 14483200 14483300 14483400 *14496000* 15080000 



PRT 

0003 *Q13430Q0* 



05248000 05252000 09414040 09415000 



PRTAD 

0003 *13734000* 

13746000 



PRTADR 

0003 *05247000* 



•05247500* 05247500 05248000 05252000 



PRT8ASE 

0003 *01342000* 



01343000 0i724000 0i725000 05424000 09039000 09414030 094i5000 094l9i00 



PRTBIT 

0003 *01001070* 



01001360 02395000 05376100 



PRTE 

0003 *01667000* 



04018000 04023000 04033000 053l6000 O611O3QO 08068000 I5l06l00 15310000 



PRTI 

0003 *0t703000* 



♦05349000* 07600440 *09039000* 14022000 14054000 



PRTJMAX 

0003 *0i703000* 



05347000 *05350000* 05350000 #09039000* 09388000 09414100 094t9000 



PRTIO 

0094 *14030000* 

M4054000* 
PRTOG 



0003 *01001360* 
05376100 

PRTOP 

0003 *0l342000* 



013*3000 01724000 01725000 05*20000 



PRTSIZ 

0076 *09370000* 



09371000 09372000 



PTCJG 

0003 *01592000* 



133*1100 133*3000 13370000 *1*332000 ** 1*373000**14388000* 



PUNCHBIT 

0003 *01001080* 



01001370 02506000 05048000 



PUNCHTOG 

0003 *01001370* 

050*8000 



PURGE 

0003 *03068000* 



*132l5000* 13745000 13773000 14471000 14483000 14601000 



PUKGEBIT 

0003 *01001090* 



01001380 02508000 



PURGETOG 

0003 *01001380* 



PURPT 

0003 *01628000* 



02726000 13285000 13309000 14088000 14118000 1*446000 



PU5HEE 

0077 *09393240* 



09393480 09396000 09402100 09406000 



PUSHER 

0077 *09393050* 



*09393140**09393200* 09393230 09424000 09427500 



PUT 

0003 *Q5008000* 



05J32000 06104400 07545000 076i0000 09133900 09j34l00 13304000 13348000 13365000 13408000 13768000 
14H6000 14117000 14168000 14224000 14259150 14315000 14334000 14353000 14388100 144U200 l««l5200 
14430000 14451200 1445^000 14470000 15376400 i6i3800Q 16166OOO i6l670O0 16172000 16257000 16260000 



PUTNBUMP 

0003 *03057000* 



09034000 *13589000* i4i6700Q 14195000 
16445000 16446000 



1421^000 14221000 l43l900Q 14331000 14403000 16000600 16443000 



PUTQGETHER 

0082 *10234000* 



10257000 10263900 10268000 10269000 10270000 10273000 10274000 



PUTSEQNO 

0003 *02005000* 



02006000 02202060 02214250 02218000 02234750 02368000 02716000 02904000 



PI 



0003 *03057000* 



pi 



0003 *15070000* 



t5i02000 i5i04000 lSnOiOO 
15276210 15305000 15334000 



15114000 l5n9000 i5233008 i52330l5 i5276i00 l5276n0 l5276t60 l5276i90 
15335000 *15336000* 15342000 15349000 15364000 15367000 *15370000* 



PI 



0035 *05050000* 



P2 



05096000 



0003 *01588000* 

050S9000 13341000 13343000 13347000 *13385000* 13722000 * 13723000** i4 133000** 14 161070**143 18000** 14321000* 



P2 



P3 



0035 *05059000* 
05096000 

0003 *0l589000* 

13725000 * 13726000** 14133000** 14 138000** 14^39000**14 140000** 14 l<ti000* 



0003 *01316000* 

01822000 02280000 02313000 02314000 *023270QQ* 02343000 *0237i000* 02375000 02376000 02378000 02382000 

02384000 2 386000 02389000 02392000 2 394000 02396000 02400000 02406000 02420000 02422000 *02424000* 

02433000 02462000 02467000 02469000 02471000 02473000 02477000 0247VQ00 02481000 02495000 02497000 

*02499000* 02505000 02507000 02509000 025l5000 02519000 02521000 02523000 02529000 02566000 Q2576000 
02588000 *02590000**02650000**02686500**02696000**0 2698000* 2700000 *0 2754000**02622000**0 2846000**0 2865000* 

02879000 *0 2 95«500* 2 960500 0296^00 2 964000 02964500 02965000 02965500 043H020 05043000 05044000 

05343000 05414^0 07086200 07086300 Q8Qi50Q0 09393010 *13282000 **i444 1000* l62l3000 16378500 

0002 *00523000* 

00523000 00524000 00526000 0l7l6000 Oi7i7000 Ol7i7700 0i7i7900 0l7i8000 Ol7i9000 

0005 *01822000* 

01833000 *0i833000**0l834000* 



0003 *04231000* 

04239000 04241000 04243000 



0032 *04311020* 

*04311050**t43U070* 043H070 043H090 





0043 *Q5414100* 

*05425l00* 05425100 *05425200* 05425200 05425300 

Q 

0041 *05343000* 

*05 344750**05 37 1000**05 374000* 05376100 

Q 

0065 *08015000* 

08093000 08094000 08185000 08200000 08210000 08218000 

Q 

0077 *09393010* 

*09395700* O94O55OO *094055QU* 09447020 



0082 *10257100* 

10257100 10257700 

QUOTE 

0021 *02637000* 

02641000 *02690000* 

R 

0003 *02l83500* 

02183750 02185750 02202500 

RANGE 

0003 *05297000* 

•05304000* 

RCA 

0103 *16008000* 



ROV 

0003 *0l668000* 



REAQACARD 

0003 *02065000* 



02130500 *02l96750# 02238000 02?3l000 09035000 



REAQTAPE 

0009 *02198500* 



02202250 02208500 02219500 



REAI.ARRAYID 

0003 *01203000* 



07056000 07057000 13380000 13389000 



REALOEC 

0094 *14013000* 



14018000 14135Q00 H136OOO *1«138000* 



Realid 

0003 *01199000* 



07060000 07069000 08038000 12035000 H138000 J52762J0 



REAI.PROCIO 

0003 *0U95000* 



REAI.STRPROCID 

0003 *0H91000* 

14294000 

REALSUBIO 

0003 *01184000* 

14164000 14167000 

REALV 

0003 *01283000* 

13389000 1416H20 14164000 
RECOV 



0087 M3220000* 

13251000 13256000 *13281QQ0* 

REO 

0003 *020U000* 

02011000 

REED 

0003 *08999000* 

*08999i75* 08999425 09399000 



REGQ 

0065 *08010000* 



08015000 *0a093000* 08094000 *08U1000* 08120000 *08160000**081 70000* 08185000 08200000 *082i0000* 08218000 
08231000 



REIAQ 

0003 *13734000* 



REIAO 

0094 *14029000* 



•14487000* 14489000 



REUOP 

0003 *01277000* 



05344500 14260000 16207000 



REMCOUNT 

0082 #10230000* 



10245000 10247000 *l0248000**i0249000* 10249000 U0263000* 



REHEAT 

0003 *04011000* 



04013000 04014000 



RESIZE 

0003 *02056000* 



RESTORESEQNUM 
0016 *Q232020Q* 

02602600 



RESULT 
0003 



♦01386000 




02579000 02586000 *02590000* 

8 4000**0 269 4000**0 2696000* 
88000**027 93000**026 06000* 
59000 02959500 10265000 



RESULT 

0007 *02089500* 

02092500 



RESULTSWITCH 

0021 *026«3000* 

02648000 



RESULTV 

0007 *02089500* 



02090500 02094000 



RETURNSTORE 

0065 *08010000* 



08087000 08090000 *08 166000**06 168000**08 190000* 08193000 *06207000* 08215000 



RIGHT 

0003 *0303950O* 



07675500 *08999a50* 08999800 14461300 14603000 



RINX 

0088 *133©1000* 



*13302000* 13304000 13305000 



ROSE 

0021 *02639000* 



*02875000* 02879000 02881000 



ROUND 

0062 *07594000* 



07600000 07600900 07604000 *076«5OOO* 



ROW 

0041 *05344Q00* 



RP 

0047 *06U7000* 



RRB1 

0003 *01522000* 



RRB2 

0003 *0l525000* 



RR1 

0002 *00507000* 



#00529000**00530000* 01557000 *14329000* 14373000 



RRlO 

0002 *00507000* 



RRlt 

0002 *00507000* 



♦00529000* 00531000 00533000 00536000 



RR2 

0002 *00507000* 



*00530000* 01557000 



RR3 



0002 *00507000* 

•00531000**00532000* 01558000 

RR4 

0002 *00507000* 

*00532000* 01558000 

RR5 

0002 *00507000* 

•00534000**00535000* 01560000 



RR6 

0002 *00507000* 



♦00534000**00535000* 01560000 



RR7 

0002 *00507000* 



♦00534000**00535000* 01560000 



RR8 

0002 *00507000* 



*00537000**00538000* 01561000 



RRV 

0002 *00507000* 



♦00537000**00538000* 01561000 07595000 *07599000* 07601000 



RSA 

0103 *16018000* 



RTBRKET 

0003 *01265000* 



05278000 06141000 06322000 06422000 10264300 12126000 13J95QO0 13402000 14259120 15260000 1&276010 
15294000 



RTN 

0003 *01669000* 

13740000 



RTPAREN 

0003 *01266000* 



02639000 02976500 06n5000 06175000 064i600Q 07067000 07096000 J0264300 12039000 1212*000 13756000 
13761100 13761000 1*259120 1*336000 16132000 16*78000 



RTPAREN 

0021 *02639000* 



026*2000 *027**00O* 



RTS 

0003 *01670000* 



07087000 13264000 13268000 



S 

0003 *02001858* 

02001868 



S 

0003 *02001838* 

020018*2 

5 

0003 *0305l00l* 



s 

0003 *03067000* 



s 

0003 *0*291000* 



00296000 0^297000 



S 

0003 *0*277500* 



04280000 O428O5OO 0*281500 04282000 04283500 0428*000 04285000 04285500 



0012 *02264400* 
02264500 

S 

0012 *02264700* 

02264800 02307000 

S 

0033 *04502000* 

♦04548000* 04551000 

S 

0039 *05309000* 

05309000 05311000 05325010 

S 

0042 *05401000* 

05407000 *05407000* 

S 

0047 *06132000* 

06138000 

S 

0043 *05416000* 

05418000 05420000 

s 

0041 *05334100* 

05334300 05334500 

S 

0046 *06063000* 

06074000 *06074000**06103000* 06103000 

S 

0065 *08027000* 

•08029000* 



s 

0065 *08063000* 

•08065000* 08069000 

S 

0064 *077i90QO* 

07727000 

S 

0065 *08072000* 

08075000 08079000 

S 

0084 *12004000* 

•12006000* 12025000 *12025000* 12030000 * 1203OOOO** 12038000* 12038000 12055000 *12055000* 

S 

0082 *10257100* 

10257200 10257800 

S 

0085 *12103000* 

12104000 13216000 l32i7000 t33i5000 133l6000 13590000 135V1000 13632000 

$ 

0085 M2102000* 

*12110000* 

S 

0098 *14254200* 

14254300 15070000 16029000 16065000 16085000 

S 

0092 M3673100* 

13673200 13673350 



0103 *16029000* 
16032000 

SAF 

0003 *01300200* 



13677400 M4299Q00* 



SAN 

0003 *01677100* 



SAV 

0003 *05247000* 

05248000 



SAVECODE 

0003 *13632000* 



13651000 1365U00 13653000 



SAVECODE 

0091 *13633000* 



13633000 13638000 13657000 



SAVEINFO 

0090 #13378000* 



*13394000* 13396Q00 *1339?000** 1 3*01000* 13405000 M3405QQ0* 134Q8000 



SAVEJNX 

0017 *02324000* 



02331000 *02342000* 02352000 



SAVEL 

0003 *01623000* 



13606000 *13628000* 14Q55000 *14609Q00* 



SAVELO 

0094 #14030000* 



*14053000* 14609000 



SAVERR 

0094 *14013000* 



14018000 *14t36000* 



SAVETIME 

0002 *QQ503000* 



SAVEV 

0003 *0J261000* 



13726000 14292000 14298000 14299000 



SAVINFO 

0077 *09392300* 



09395i00 09396000 O94O21OQ 094i4070 Q94i4n0 Q94i8Q00 094j9000 094^00 09424000 09433000 



SAVL 

QlO* *16q31000* 



*16032000* 16034000 



SAVL 

0106 *16087000* 



♦16088000* 16096000 



SAVNOX 

0077 *09393000* 



•09397000* 09402i00 *09403000# 09403000 094i3000 *094 14120 **09420000 * 09426000 09436000 



SBIT 

0003 *07036000* 

07046000 



SBV 

0003 *01244Q00* 

16197000 16415000 
SCAN 



0007 *02089500* 

02127000 02128500 

SCAN 

0082 *10257100* 

10264800 

SCANAGAIN 

0021 *02639000* 

*Q2646000* OgfiSOOOO 02686500 02696000 02728000 02737000 02890000 



SCANNER 

0003 *02066000* 



02137000 02279000 0232^000 0237l000 02499000 02590000 02647000 02663000 O2666OOO 02684000 0*694000 
02698000 02744000 02747000 02749000 02751000 02752000 02754000 02788000 02793000 02806000 02809000 
02812000 02816000 02820000 02889000 02890000 02958500 



SCATTERELBAT 

0003 *03035000* 



07395000 *i3i97000* 13208000 13327000 13767000 14206000 14305000 



SCI 

0003 *01677050* 



SClASS 

0054 *07038000* 



*07044000**07046000* 070*8000 07056000 07060000 #07079000* 07088000 



SCOUNT 

0016 *02365100* 



*02366200* 02602700 



SCRAM 

0003 *01301000* 



•02845000**09385000* 09386000 12110000 *12122000* 13308000 13361000 13362000 13755000 



SCS 

0003 *Q1677150* 



scv 

0003 *01246000* 



16206000 16337000 



SEARCH 

0003 *0423t000* 



#04243000* 04244000 04280000 04280500 04283500 04284000 



SEC 

0103 *160220Q0* 

16342000 

SECOND 

0003 *Q5271000* 



*05281000* 05282000 



SECOND 

0051 *06314000* 



*063g5000* 06328000 06332000 



SECOND 

0052 *06339000* 



06341000 06344000 



SECRET 

0003 *0l628000* 



13331000 U333000 14345000 



SEO 

0103 *16017000* 



SEO 

<U01 #14419000* 



SEGMENT 



0003 *03042000* 

07676500 M3657000* 13681000 14461200 14602000 

SEGMENTSTART 

0003 *03041000* 

07661500 M3632000* 13655000 1*296000 14387000 

SEGSBIT 

0003 *01001100* 

01001390 02470000 13652000 13674000 



SEUSIZEMAX 

0003 *01687000* 



♦13678000* 13678000 



SEGSTOG 

0003 *01001390* 



13652000 13674000 



SEMICOLON 

0003 *01230000* 



05109000 07012000 07032000 10264410 13^66000 14062000 14063000 14165000 14325000 14338000 14357000 
14519000 16131000 



SEQ 

0003 *01756000* 



SEQ 

0003 *04130000* 

04130000 04132000 04142000 04203000 04231000 04247000 

SEQ 

0054 *07038100* 

07038300 07038600 



SEQ 

0076 *09378000* 

09382000 09393050 09393240 



SEOBIT 

0003 *0100H10* 



OJ001400 02191500 02393000 



SE«COMPARE 

0009 *Q22Q2500* 



02209750 02224500 



SEttERRBIT 

0003 *01001120* 



01001420 02520000 



SEOERRTOG 

0003 *01001420* 



SEOTOG 

0003 *01001400* 



02191500 



SE8UENCEERR0R 

0003 *01742100* 



01742110 02226750 



SEQXEOTOG 

0003 *01001560* 



*02525000* 02525000 



5E* 

0101 *14419000* 



SET 

0085 *12103000* 

12U7000 
SETTING 



0003 *01000802* 

•02327000* 02338000 02352000 02356000 02427000 



SGAVL 

0003 *01369000* 



SGNO 

0003 *G1370000* 

14054000 



SGNOO 

0094 *1«030000* 

*14054000* 



SIGNA 

0065 #08012000* 



08014000 *08056000* 08065000 08098000 08108000 08130000 08179000 08181000 08189000 08212000 0821/000 
*08227000* 



SJGN8 

0065 *08012000* 



08050000 08H2000 *08 1 2l000* 08126000 Q8i8300Q 08i96000 *08203000* 08214000 



SIGNC 

0065 *08012000* 



08014000 08044000 #08n2000* 08185000 08197000 *08202000* 08219000 #08220000* 



SIMPARITH 

0003 *03003000* 



06006000 *06032000* 07085000 



5IMPG0 

0003 *03026000* 



*075«8000**07555000* 07557000 07564000 07570000 07561000 



SIMPI 

0065 *08052000* 



•08061000* 08061000 08176000 08211000 08224000 



SIMPLE 

0065 *08027OO0* 



*08033000**08038000* 08039000 08H2000 08181000 08183000 08185000 



SIMPLEB 

0065 *00014000* 



08044000 08112000 08220000 



SIMPLEV 

0065 *08015000* 



08074000 08099000 08211000 08224000 08227000 



SINQUBIT 

0003 *01001130* 



0i00i430 02195000 02^5750 02214200 0222^750 02421000 02*22000 04150000 04278500 05039600 05046000 
05097500 05099000 05325490 06123000 07025020 07086500 09384500 09387000 09389500 13653500 13676000 



SINGCTOG 

0003 *01001430* 



02i8i000 02195000 02195750 022x4200 02228750 02«2l000 Q4i50000 04278500 05039600 05046000 05097500 
05099000 05325490 06^3000 07025020 07086500 09384500 09387000 09389^00 13653500 13676000 



SIV 

0003 *01236000* 



16319000 16320000 16328OOO 16334000 



SUE 

0003 *03042000* 



SHE 

0003 *05247000* 



052«8500 052*9000 05250000 05252000 05254000 



SHE 

0003 *07647000* 



07663000 07675500 07676500 07677000 



SUE 

0003 *13657000* 



13675000 13677ft00 13678000 



SUE 

0092 *13661000* 



13661000 13670000 



SKAN 

0003 *02277000* 



02327000 02371000 02499000 02590000 02958500 



SKANAGAIN 

0016 *02360000* 



*02370000* 02378000 02383000 02385000 02389000 02465000 02468000 02478000 02503000 02527000 02577250 
02584000 02595000 02599000 



SK8IT 

0063 *07653500* 



07653500 07655000 O8O2OQOO 08027000 08083000 08084000 



SKIPCOUNT 

0083 *10241000* 



*10247000* 10253000 10254000 10256000 



SKIPIT 

0024 *02974000* 



02974500 02978500 



SKIPS 

0103 *16403000* 



16419000 16492000 



SKIPV 

0003 *0t241000* 



SKP 



0003 *02001838* 

02001838 0^001842 

SKP 

0003 *020A1000* 

020-1*1000 02043000 

SKP 

0003 *02001858* 

02001858 02001890 

SKSC 

0082 *10259000* 

•10263500* 10283000 

SN 

0093 *13750000* 

•13755500* 13767000 ^768000 *i3769QQ0* 13/69000 

SNO 

0003 *01671000* 

15104000 15233015 15276UQ 15335000 

SOP 

0003 *14003000* 

14036000 14506000 14600000 

SQRCE 

0003 *02045000* 

02048000 

SORTNEST 

0003 *05412000* 

14601000 

SORTPRT 

0003 *01725000* 

05425100 05425400 05447000 05448000 05452000 05455000 05459000 



SPACEITDOWN 

0Q94 *14023100* 



14461500 14493500 



SPCLMON 

0102 *lb076200* 



*15349000* 15351300 15351400 15354000 



SPECIAL 

0003 *01003000* 



02655000 O2666OOO 02755000 02961500 02963000 07031000 QVi9800Q 



SPECIALCHAR 

0021 *02637000* 



02643000 *02651000* 



SPECIALSWITCH 
0021 *02641000* 

02659000 



SPECTOG 

0003 *01593000* 



*05034000* I3305i00 13328000 13385000 13601000 13621000 13^19000 14070000 *14122000* 14142000 14149000 
14160000 14161070 14187000 14205000 14275000 14287000 *14364000 **14368Q00* 14377000 14S07000 



SPHT 

0003 *01698000* 



SRESULT 

0016 *02365100* 



*02366200* 02602700 



SSKjp 

0003 *02045000* 



02046000 02049000 



SSP 



0003 *01672000* 
05226000 

SSS 

0046 *06063500* 



♦06068500* 06125000 



STACKCT 

0003 *01566010* 



045 2 7000 *06054 1 50* 06^8000 *06 ^8000**06 ^2000* 06i7 2 000 *06i745QQ* 06^4500 *06i79500* 06J79&00 *06296500* 

*06299500**06305000**06332500**0704 1200**07 100500**0 7 726990**10125500** 15091000**15098000** 15101500**152330 li* 
15233 OH *152 33 0l6**l&23^5 00** 15276 n5** 15278 000** 153355 00** 1536 9000* 



STACKCTR 

0003 *01683000* 



05370000 *0537l0Q0* 0537l000 O6O685OO *06i25000* 1*058000 14477000 *i4478000* 14481200 *i4493000* 14506000 
*14610000* 



STACKCTRO 

0094 *1402900Q* 



*14058000**14477000* 14493000 14*10000 



STAQKHEAD 

0003 *01310000* 



02724000 02865000 05090000 05233000 05234000 09i34iOO 09U4200 09405500 09447030 09447040 13286000 
13308000 13361000 13362000 13768000 13769000 14448000 16443000 



START 

0066 *08084000* 

08086000 

START 

0094 *14017000* 



*14063000* 14138000 14139000 14140000 14141000 141&6000 14160000 14162000 14170000 14199000 14202000 
14253000 14254050 14269000 14272000 14379000 14384000 14504000 14521000 



START 

0097 *14202000* 



START 

0099 *14272000* 

♦14373000* 



START 

0098 ^14254050* 



14259090 *14269Q00* 



START 

0100 ♦14384000^ 

♦14503000* 



START 

0103 *16475000* 



♦16477000* 1*485000 



STARTINTRSC 

0069 *09024000* 



START1 

0099 *14272000* 



14325000 14364000 *14375000* 



START2 

0099 *14273000* 

♦14376000* 



STD 

0003 ^01673000* 



08090000 12038000 13230000 15104000 15233015 i5276il0 15335000 



STtPl 
0003 



♦05003000* 

*05003000^ 
06069000 
06322000 
07600600 
07994000 
13404000 



05108QOO 
06071000 
06415000 
07604J10 
08029000 
13753000 



05274000 
06085000 
06421000 
07604140 
06178000 
13754000 



05275000 
06094000 
07018000 
07645000 
09252000 
13756000 



05276000 
06106100 
07041000 
07662000 
12007000 
13766000 



052^7000 
06199000 
07437000 
07664000 
12010000 
13771000 



05278000 
06317000 
07505000 
07666500 
12013000 
14126000 



05344500 
06318000 
07552000 
07673000 
13351000 
14220000 



05344520 
06319000 
07567000 
07727070 
13392000 
14223000 



05344610 
06320000 
07597500 
07767000 
13395000 
14259H0 



05344670 
06321000 
07600100 
07768100 
13402000 
14268000 



14338000 
15253000 
16208000 
16368000 



14341000 
15260000 
16217000 
16372000 



14345000 
15276050 
16220000 
16384000 



14356000 
15276160 
16252000 
16406000 



14393000 
15300000 
16253000 
16434000 



14396000 
15342000 
16316000 
16435000 



14467000 15090000 15113000 15233000 15233006 
16125000 16160000 16197000 16206000 16207000 
16319000 1632^000 16326000 16340000 16367000 



ST&PIT 

0003 *05002000* 

05344690 
06147000 
06345000 
07485000 
07584000 
08155000 
12039000 
14166000 
15274000 



06015000 

06166000 
06410000 
07487000 
07604j00 
08161000 
12045000 
14193000 
15276070 



06035000 

06168000 
06411000 
07493000 
07727020 
08j75000 
12054000 
14259000 
15306000 



06049000 

06172000 
06416000 
07495000 
07727090 
08192000 
13327000 
14259070 
15376800 



06102000 

06174000 
06417000 
07505000 
07996000 
08231000 
13406000 
14259140 
16130000 



06104700 
06177000 
06422000 
07516500 
08031000 
12013000 
13409000 
14314000 
16176000 



06106200 
06181000 
06423000 
0/518000 
00039000 
12017000 
13753100 
14359000 
16234000 



06111000 

06201000 
07010000 
07552000 
08120000 
12025000 
13757000 
14403000 
16376000 



06117000 
06208000 
07072000 
07569000 
08131000 
12030000 
13758000 
14472000 
16408000 



06140000 

06303000 
07100000 
07573000 
08135000 
12034000 
1376H00 
15098000 
16412000 



06143000 
06331000 
07407000 
07580000 
08142000 
12036000 
13772000 

153233012 

16494000 



STEPV 

0003 *01255000* 



08103000 08182000 



STIABID 

0003 *0H78000* 



14403000 14447000 I6OOO3OO 16253000 16437000 16443000 16481000 



STUB 

0003 *01471000* 

*15273000* 



STMT 

0003 *03027000+ 



05108000 07011000 07485000 07495000 07574000 07577000 07b85l00 *077n000* 07771000 08163000 08201000 
09275000 U167000 14488000 14515000 



STMTSTART 

0065 *08010000* 



08157000 *08l69000*#08i9l000* 08193000 #08206000* 08221000 



STOP 

0100 *14384000* 



14484000 *14491000* 



STOPOEFINE 

0003 *01597000* 



0289 3000 *029j 1000 **02926000**070j7000** 10263300** I02bi000**llilii00t)**i332i'000** 14 1 30000**1^ 192000** 1«25B000* 
* 1*259060** 14259 lOO** 142591 30**1 4402000** 14403000* 



STOPENTRY 

0003 *01594000* 



13351000 *14 188000**14 198000**14205000** 1425 1000**14255000** 14269000** 14 3 18000** 1432 1000**1 4402000** 14404000* 



STOPGSP 

0003 *01694000* 



1334 3000 13 345000 *14 164500** 14 166000 ** 14188000** 14 198000 ** 14205000 **j425 1000**14255000 ** 14269000 **l43i8500 * 
* 14 3 19500** 14402000** 14404000* 



STOPPER 

0003 *03068000* 



STOPPER 

0003 *13217QQ0* 



13223000 13291000 



STOPPER 

0003 *13734000* 

13745000 

STORE 

0065 *08063000* 



08070000 08130000 08135000 08138000 08216000 



STORE 

0066 *08084000* 

08089000 



STOREFIX 

0066 *08091000* 

*08093000* 08157000 08171000 
STREAMERR 



0094 *14017000* 

14021000 M4137000* 

STREAMSTMT 

0003 *03040000* 

070H000 13771000 14415400 *16Q01000# 16130000 16229000 16235000 16495000 

STREAMTQG 

0003 *0t4l7000* 



02692000 02692&00 042? 9 50Q 0428JOOO 04283000 04284500 05344400 070jl000 *0766 1000 #*Q7676000 * 12llOiO0 
*12ll0l00**l2127i00* 1212/100 13343000 * 1377 lQQ0**i377 3000* 14077000 14082000 *14280000* 14298000 14318500 
1*324000 143*1000 14377000 14385000 *1446t000* 



STREAMV 

0003 *01297000* 



07745000 07768i00 14278000 



STREAMWQRDS 

0003 *05230000* 



05236000 13771000 13773000 1432*000 14460000 



STRMPROCSTMT 

0003 *O303OOO0* 



06160000 *07426000* 07446000 07737000 



STRNGCON 

0003 *01211000* 



02705100 07075000 07604HO 07665500 07668000 08032000 I62i0000 16384000 



STRNGXT 

0021 *02638000* 

♦02701000* 



STRPROCID 

0003 *0H89000* 



07431000 14281000 



STUFF 

0003 *01561600* 



05350300 09281Q00 1367/500 



STUFFBIT 

0003 *01001HO* 



01001440 02516000 05350100 13677100 



STUFFF 

0003 *05199000* 

05203000 



STUFFTOG 

0003 *01001440* 



05350100 13677100 



STi 

0007 *02090000* 



02090500 02120000 02124500 02126000 



ST2 

0007 *02090000* 



02090500 02121000 02121500 



SUB 

0003 *01674000* 



06016000 06030000 08044000 08214000 120l500Q 16329000 



SUBC 

0003 *13213000* 



SU8DEC 

0094 *14014000* 

1*019000 *J4163000* 

SU8HAND 

0003 *030U000* 

06156000 *06194000* 06209000 07733000 
SUBID 



0003 *01185000* 

06198000 U164000 

SU8LEVEL 

0003 *014Q2000* 

05117000 M447700Q* 14477000 *14492Q00* 

SUBOP 

0003 *01556500* 



05344570 05344710 



SUBV 

0003 *Q1288000* 



SUPERFRMTID 

0003 *OU83000* 



05221000 05224000 



SVARMONFILE 

0003 *01529000* 



SW 

0008 *02191250* 

02194500 

SW 

0017 *Q2326000* 

02328000 

SWITCHOEC 

0094 *14015000* 



14020000 *14200000* 14252000 



SWITCHIO 

0003 *01186000* 



07507000 14207000 



SWITCHIT 

0016 *02321Q00* 



02359000 02377000 02388000 02393000 02395000 02397000 024Q20Q0 02*15000 0242H00 02*25000 02*35000 
02470000 02472000 02474000 02480000 02490000 02496000 02506000 02508000 025H000 02516000 02520000 
02522000 02531000 02567000 02600000 



SWlTCHV 

0003 *01292000* 



SKlTMONFlLE 

0003 *01539000* 



SYLLABLE 

0003 *03028000* 



SYLLABLE 

0003 *030l9000* 



SYLLABLE 

0003 *04270000* 

04271000 0427^000 O43H0OO 04500000 

SYMBOL 

0003 *02183500* 

02183750 02185250 

T 

0003 *01717900* 



T 

0003 *02057000* 

02058000 02059000 



0003 *01564000* 

02057000 02249000 02323000 *02655000* 02658000 *02666000**026*2000* 02695000 *02?01000* 02705100 *0272i000* 

02722000 *02724000* 02726000 *Q2755000* 02798000 *O28l3000* 02623000 *02823000* 02824000 02826000 *02B26000* 

02827000 ©2842000 *0284800Q* 02850000 02851000 *02865000* 02875000 02876000 *02877000* 02877010 *0£877020* 

*02878000**02882000* 02882000 02886000 02896000 *02896000* 02896000 02900000 02901000 029i0000 02957500 

02981500 O5O68OOO 05096000 *05233000* 05234000 05236000 O54O1OQO 05414000 *08057000* 08057000 08058000 

08059000 08061000 *08069000* 08070000 *09282600**09388000* 0V388000 09389000 09393020 12004000 13199000 
14163500 16067000 16364000 

0003 *03050000* 



T 

0003 *04311000* 



04311030 04312000 04318000 



T 

0003 *12101000* 



12108000 12117QO0 



T 

0018 *02446000* 



02446000 02448000 02449000 03024000 03025000 03036000 03037000 03042000 03047000 03047100 03050000 
03051000 03051001 04010000 040n000 04029000 04030000 04H5000 04H6000 



T 

0018 *02441000* 



02441000 02443000 02444000 



T 

0017 *02323000* 



T 

0011 *02249000* 



*0225l000**02257000**02259000* 02259000 02260000 



T 

0025 *02981500* 



♦02982500* 02983000 02983500 02984000 02984500 

T 

0022 *02957500* 

*02960500**02961000* 02961000 02961500 #02964000* 02966500 

T 

0035 *05068000* 

05074000 05081000 05086000 

T 

0043 *05414000* 

*Q54254Q0* 0542&000 05428000 *Q543Q500* 05431000 

T 

0042 *05401000* 

•05402000* 05402100 05403000 05404000 05405000 05409000 *054Q9300* 05409300 *05409400* 05409400 05409500 

T 

0067 *08999075* 

08999075 08999100 

T 

0076 *09364O00* 

09364000 09369000 

T 

0077 *09393020* 



T 

0084 *12004000* 

*12044000* 12047000 

T 

0086 *13199000* 

*13200000* 13201000 13202000 13203000 13204000 13205000 13206000 13207000 



0096 *14163500* 

♦14166500* 14168000 

0105 *16Q67000* 
♦16070000* 

0112 *16364000* 

16393000 16394000 



TABLE 
0003 



♦Q2635Q00* 

♦02920000**02924000* 02927000 05002000 05003000 05221000 05224000 07066000 07397210 07401000 Q76Q0950 

07604020 07748000 0775100U Q7f68i30 10263400 i0g82000 12020000 12112000 i3753l00 1376H00 14063000 

14516000 15276010 16482300 



TAKE 
0003 



*01717700* 



02724Q00 02725000 *03o53000**05005o00**05006000* 05124000 05131000 05189000 06082000 06104300 06191000 



07042000 
10263H0 
13364000 
14320000 
14451200 
16172000 



07090000 
13226000 
13365000 
14333300 
14470000 
16254000 



07098000 
13229000 
13408000 
14352000 

14483200 
16260000 



07412000 
13249000 

13677200 
14388100 
14483400 
16449000 



07441000 
13255000 
13767000 
144H200 
15376300 



07527000 
13257000 
14084000 
14415200 
16070000 



07329000 
13279000 
14088000 
14425000 
16089000 



07539000 
13284000 

14U8000 
14430000 
16138000 



07601000 
13286000 

14168000 
14438000 
16139000 



09133900 
13348000 

14259150 
14446000 
16163000 



09134100 
13362000 
14310000 
14448000 
16166000 



TAKEFRST 

0003 *05188000* 



♦05189000* 05222000 Q6i97Q00 07435000 



TALL 
0102 



♦15072000* 

♦15077000* 
I5i06i00 
15255000 
15310000 



15080000 

15 107000 
15267000 
15333000 



♦ 15083000* 
l5n0200 
15276020 
I5344OOQ 



15083000 

15110300 
15276060 
15344100 



15085000 

1512*000 
15276080 
15344200 



15086000 
15128100 
15276090 
15351000 



150*2000 
15233009 
15276210 
15351200 



15094000 

15233010 
15290000 
15352000 



15097000 
15233011 
15295100 
1535 3000 



15102000 
15233014 
15302000 
15376300 



1&105000 

15233018 
15303000 



TAILYV 

0003 *01239000* 



16319000 16341000 



TAN 

0103 *16014000* 

16213000 



TAPE 

0003 *01561000* 



02201750 02452000 02454000 02457000 09282000 



TAPE 

0003 *02188000* 



02188000 02188500 02202750 



TAPELAST 

0009 *02210000* 



02210750 *022l9250* 



TBUFF 

0003 *01561056* 



02201750 02202000 02456000 02457000 07025030 



TBI 

0003 *01457000* 



*07506O00**07507o0O* 07516200 075l8<)00 * 10243000**10260000* 1O275000 14204Q00 



TBI 

0097 *14204Q00* 

*14206000* 



TCLASS 

0111 *16314000* 



*l63l5000* i63j7000 16324000 j6328000 16334000 i634i000 *i6348000* J6349000 J6350000 16352000 

TCOUNT 

0003 *01566000* 

02251000 02252000 *02758000**02790000 * 02796000 02798000 02603000 *028 10000**028 17000* 
TEOOC 



0003 *13683000* 

13686000 13703000 13706000 13732000 13734000 

TEMPL 

0028 *0«166000* 

*0<U72000* 04175000 04184500 04186000 



TEMPI 

0003 *02001860* 



02001866 02001868 02001890 



TEMP2 

0003 *02001860* 



TEN 

0003 *01340000* 



02796000 2 799000 O28O3OOO O2826OOO O2833OOO 02635000 O2838OOO O284OOOO 09041000 



TEST 

0065 *08041000* 



08051000 08131000 08220000 



TESTC00E 

0109 *16192000* 



162U000 16212500 



TESTLEV 

0100 *14384100* 



14387000 14389000 14411300 14415300 14451000 1446UQ0 

TESTVOID 

0009 *02210500* 

02232500 *02234000* 

THENBRANCH 

0050 *06295000* 

*06297000* 06301000 



THtNV 

0003 *01256000* 



06411000 16217000 



THERE 

0003 *01737350* 

01737450 



TH1 

0003 *Q1689000* 



•02250000* 02255000 02256000 02257000 02^85000 02797000 Ogf990QQ O28OOOOO 



THIRD 

0051 *06314000* 

*06326000* 06327000 O6328OOO 06332000 

TIME1 

0003 *01300000* 

01828000 09385000 *16495200* 

TL 

0027 *04H8000* 

*04119000* 04124000 

TL 

0057 *07483000* 

*07485000* 07487000 

TL 

0087 *13221QQ0* 

*13258000* 13277000 

TLCR 

0003 *01330000* 

*02202050* 02202060 02202070 02224500 *02456000* 
TLCR 



0009 *02202750* 

02203500 02204000 

TLU 

0003 *01689000* 

•02250000* 02255000 02256000 02765000 ©2796000 02797000 02/99000 02800000 

TQGGLEV 

0003 *01245000* 



T0U0C 

0069 *09005000* 

09006000 



TOP 

0044 *05439000* 



05445000 *05452000* 



TOTALNO 

0003 *01000860* 



02192000 *02l92500* 02193000 *02l93000 **Q25820Q0* 



TOV 

0003 *0i257000* 



07505000 07552000 16252000 16437000 



TOWAROS 

0003 *04H6000* 



04H9500 04120i00 04120200 04120500 



TOWARDS 

0003 *03037000* 



TRB 

0003 *01682000* 



04318000 



TRNSFER 

0003 *01251000* 

16379000 



TRP 

0103 *16019Q00* 

16383000 



TRUTHV 

0003 *01208000* 



TRW 

0101 *14419000* 



TSSJNTYPE 

0003 *0l56l430* 

09430060 

TSSTOG 

0077 *09393020* 



♦09414026* 09430050 



TSUBLEVEU 

0094 *14029000* 



♦14477000* 14492000 



TURNONSTOPLIGHT 
0003 *02011000* 

02202070 02214500 02218250 02235750 02369000 02717000 0^905000 

TWXA 

0003 *01561700* 

05350180 05350300 13677400 13677500 
TYPE 



0003 *03055000* 



TYPE 

0003 *05247000* 



05248000 05249000 05250000 05253000 



TYPE 

0003 *13316000* 



13333500 13338000 133«200O 



TYPE 

0003 *13716000* 

13729000 



TYPE 

0050 *06295000* 

♦06299000* 



TYPE 

0103 *16476000* 

16477000 



TYPEV 

0003 *01611000* 



*13380000**13389000* 13390000 *i409 i000 **i4 16 l0 l0 **i4 l&i 120 * iai62000 1^163500 *1428 1000 **l428a000 * 1«285000 
*14292000* 14294000 *14294000* i«3l9000 



TYPEV 

0003 *03071000* 



TYPEV 

0096 *14163500* 

*14164000* 14165000 1^167000 

Tl 

0003 *01693000* 

02001860 0^278000 04502000 05049000 06062000 06184000 06196000 07427000 07562000 08173000 *U38l000* 



13383000 13389000 13684000 #14 16 1000** 1416 1020* 14161040 14161120 15073000 

Tl 

0003 *02001860* 

0200187^ 02001876 

Tl 

0003 #13684000* 

13685000 13707000 137H000 13^32000 13734000 

Tl 

0033 #04502000* 

•04550000* 04551000 

Tl 

0031 *04278000* 

*04280500* 04281000 04281500 #04284000* 04284500 04285000 

Tl 

0035 #05049000* 

05088000 #05091000* 05091000 05096000 05097000 *05097000**05099000 * 05099000 

Tl 

0046 *06062000* 

#06072000* 06077000 #06079000* 06080000 06081000 06082000 06087000 06089000 #06104200* 06104600 #06107200* 
#06108000* 06110000 O6HQ1OO 

Tl 

0048 #06184000* 

*06185000* 06187000 #06189000* 06191000 

Tl 

0049 #06196000* 

#06197000* 06206000 06207000 

Tl 

0056 *07427000* 

#07435000* 07436000 #07440000* 07442000 07443000 



Tl 

0065 *08173000* 

*08l79000**08l93000* 08202000 08203000 08204000 08205000 08206000 0820f000 08225000 

Tl 

0061 *07562000* 

♦07566000* 07572000 07573000 07575000 *07577000* 07579000 07583000 07585100 

Tl 

0102 *15073000* 

15095000 15097000 15098000 15100000 15112000 15124000 15*33005 15233013 15233018 15276060 15276070 
15276150 1527*210 15304000 15308000 15341000 15370000 *l5376300**l5376500* 15376500 1537*600 *1537*600* 
15376700 

T2 

0003 *01693000* 

020018*0 04502000 05049000 06Q62000 06184000 07562000 07*57500 08173000 13684000 15074000 

T2 

0003 *020Q1860* 

02001874 02001876 

T2 

0003 *13684000* 

13686000 13694000 13698000 

T2 

0035 *05049000* 

♦05092000* 05093000 05095000 05098000 

T2 

0033 *04502000* 

♦04550000* 

T2 

0048 ♦06184000* 

#06185000* 06189000 ♦06190000* 06J90000 06191000 

T2 



0046 *06062000* 

#06072000* 06074000 06075000 06079000 *06080000* 06080000 0&081000 *06084000* 06087000 06089000 06090000 
•06090000* 06092000 *06093000* 06099100 06099200 *06l04300* 06104400 *06 106000**06106200* 06110200 

T2 

0065 *08173000* 

•08198000* 08208000 

T2 

0063 *Q7657500* 

07663000 07668500 07669000 07671500 

T2 

0061 *07562000* 

*07583000* 07583000 *07585000* 07586000 

T2 

0102 *15074000* 

1*100000 15112000 I5i2^»000 15233005 15233013 15233018 15276070 l5276i5o 15276210 15308000 15341000 
15370000 *153?6300* 15376400 

T3 

0003 *13664000* 

13689000 13697 00 13700000 13710000 13732000 13734Q00 

T3 

0035 *05049000* 

*0509l000* 05092000 *05093000* 05094000 05096000 *05098000* 

T3 

0065 *08173000* 

•08199000* 08209000 

T4 

0035 *05049000* 

*05095000* 05096000 

T4 

0065 *08173000* 



*08200000* 08210000 

U 

0003 *05411100* 



u 

0003 *Q5437000* 



05440000 05441000 05443000 05446000 05454000 05457000 05458000 



UNHOOK 

0003 *01626000* 



13305300 *13353000* 



UNKNOWNID 

0003 *0il77000* 

06151000 



UNTRV 

0003 *01226000* 



070j8000 07485000 08n3000 08128000 08184000 



UPPER 

0003 *05299000* 

05304000 



USEROPINX 

0003 *01001170* 



02335000 02339000 02353000 02357000 02600000 09414022 



USESWITCH 

0009 *02210750* 

02212000 



USETHESWITCH 

0009 *02210250* 



*022U750* 02228J00 02228lSG 02229500 ©2231500 02232250 02234000 02234600 02235250 



0065 *08010000* 

08015000 08078000 08099000 08181000 08188000 *08225000**08227000* 

VAU 

0003 *01741200* 

01741300 

VALUEV 

0003 *01258000* 

14341000 

VARIABLE 

0003 *03038000* 

06140000 06164000 07050000 07058000 07073000 07083000 07402000 07739000 08228000 12037000 *p070000* 
15377000 

VBIT 

0054 *07039000* 

♦07043000* 07045000 

vo 

0003 *0U50000* 

07043000 13203000 

VQIDBIT 

0003 *01001150* 



01001450 02231500 02415000 



VOIOCR 

0003 *01785000* 



02231750 02232000 *02232000**024 10500* 024i0500 024U000 



VOIDING 

0003 *01001450* 

02231500 



VOIDPLACE 

0003 *01785000* 



*02232000* 02410500 02412000 



VOIDRANQE 

0016 *02365200* 



02410000 024H000 02412000 02485000 02486000 02487000 



VQIOTAPE 

0003 *01001460* 



02228100 02232500 



VOIDTBIT 

0003 *01001160* 



01001460 02228i00 02232500 02490000 



VOIOTCR 

0003 *01785000* 



0222^125 02228^0 02233000 02233500 *0 2 233500* 02485500 *024855QQ* 02486000 



VOIDTPLACE 

0003 *017s5000* 

•02233500* 02485500 02487000 

VONF 

0003 *01590000* 

•13203000**13341000* 13373000 *16000400* 

VP 

0003 *0l756000* 

01761000 01780Q00 

VRET 

0065 *08010000* 



•08054000* 08077000 *08176000* 08198000 *0a208000* 082UOOO 08224000 *0a228000* 



w 

0003 *02054000* 



02054000 02055000 



0003 *01717700* 



W 

0039 *053Q9Q00* 

053U000 05315000 05325010 

W 

0092 *13673100* 

13673100 13673250 

WD 

0069 *09005000* 

09005000 09006000 

WHAT 

0078 *09393080* 

*09393170* 09393l80 09393190 

WHATISIT 

0016 *02362000* 



02364000 02365000 02379000 02398000 02475000 025l7000 02568000 *02578000* 



WHILESTMT 

0003 *07490000* 



07496000 07757000 



WHILEV 

0003 *01224000* 



08113000 08133000 08139000 



WHO 

0078 *09393080* 



*09393110* 99393130 09393170 *09393l90* 09393200 



WHOUE 

0056 *07427000* 



*07430000* 07432000 07^38000 07439000 *Q744l000* 07441000 07442000 07444000 



WITHV 

0003 *Q1259000* 



WOP 

0003 *01371000* 



02534000 02536000 04280500 0«28lO00 0428000 04284000 04284500 04285000 



WORD 

0003 *04142000* 



04147000 04149000 



WORD 

0003 *0427O000* 



04273000 04277500 042*1000 043ll0Q0 0*500000 04503000 Q«5Q4000 05005000 05008000 050J2000 



WORO 

0003 *05008000* 

05009000 



WQRDCOUNT 

0088 *133Q1Q00* 



•13302000* 13307000 13310000 13312000 



WRITEAX 

0054 *07038100* 

07086300 



WRlTELINE 

0003 *02181000* 



02183000 2 i95000 02i95750 02214200 02228750 02421000 04j50000 0503*600 O5O46OOO 05097500 05099000 
05325490 06123000 07025020 O7O865OO 09384500 09387000 09389500 136535OO 13676000 



WRITEOUT 

0046 #06064000* 

06120000 
WRITEPRT 



0003 *05325010* 

05325500 05376j00 

WRITERRQR 

0034 *05016000* 

05031000 05044000 

WRiTNEW 

0003 *02016000* 

02020000 02194000 



X 

0003 *13591000* 

13593000 



X 

0035 *Q5067000* 



05072000 05074000 05i05000 05H3000 05123000 05128000 051*9000 05207000 05246000 05247000 05271000 
05298000 05299000 05307000 



X 

0079 *09393270* 



*09393400* 09393410 09393420 09393430 



xeu 

0016 *02321000* 



02327000 02335000 02339000 02353000 02357000 



XCH 

0003 *Q1675000* 



04507000 06203000 08065000 08123000 08228000 12054000 15106100 15309000 



XIT 

0003 *01676000* 



02210500 05325080 13743000 



XIT 

0009 #02210500* 



02213250 02214750 #02237750* 



X1T 

0040 *0S325080* 



05325340 05325350 05325370 05325380 05325390 05325400 05325410 05325430 



XITR 

0003 *Q1430000* 



XMAS 

0077 #09393050* 



09393H0 09393l30 09393l«0 09393170 09393180 *09393l80* 0V3931V0 09393200 



XMUDE 

0003 *01001530* 



02328000 *02332000**02367000**02383000**02385000* 02408000 02425500 *02<»78000* 02483000 02525000 02577000 



XM0DE0 

0017 *02325000* 



02326000 *02329000* 



XM0DE1 

0017 *02325000* 



02326000 *O23330OO* 



XM0DE2 

0017 *02325000* 



02326000 *02337000* 



XM00E3 

0017 *02325000* 



02326000 *023«100Q* 



XM00E4 

0017 #02325000* 



02326000 *02355000* 



0077 *09393240* 

09393290 *09393330* 09393350 09393400 *09393430* 093*3440 0V393450 

Z 

0003 *01490000* 

06063500 13746000 *144 1 1200**144 15200 * H457QQ0 14506000 *i«b06OO0* 

Z 

0046 *Q6063500* 

#06099100* 

ZEERO 

0063 *07658500* 



07660500 07662000 



ZP1 

0003 *01677000* 



LABEL OLPA OlPA 00176366CC USERsOOOOOOO; REMOVE ESPOL/DISKKUMP I LE E5POL/0ISK TSPOL LIBRARYJTSPQ TSPOL /ESPUL 



